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PART  I 


ADAPTIVE  CODING  OF  IMAGES  USING  DIFFERENTIAL  PULSE  CODE  MODULATION 

1.  Part  I  Introduction 

To  date  most  of  these  techniques  have  been  utilized  with  fixed  bit 
assignment  procedures  selected  with  respect  to  a  particular  encoding 
technique.  In  a  fixed  bit  assignment  procedure  for  a  given  compression 
ratio,  each  resolution  cell  in  the  image  is  assigned  the  same  number  of 
bits  as  any  other.  On  the  other  hand, in  an  adaptive  encoding  scheme  the 
number  of  bits  allocated  to  different  areas  in  the  image  changes  according 
to  area  complexity.  We  expect  that  the  performance  improvement  available 
through  adaptive  encoding  will  be  greater  than  that  possible  by  experi¬ 
mentally  "fine  tuning"  a  particular  kind  of  encoding  scheme  and  using  a 
fixed  bit  allocation  procedure. 

We  assume  that  the  image  under  consideration  is  partitioned  into  a 
set  of  equal-sized,  nonoverlapping  blocks  or  subimages.  The  encoding 
of  the  image  will  then  take  place  sequentially,  block  after  block,  and 
the  encoding  time  for  each  block  will  be  the  same.  We  will  also  impose 
the  constraint  of  a  fixed  number  of  bits  per  picture  frame.  The  need 
for  an  adaptive  bit  allocation  procedure  arises  for  two  reasons: 

(1)  The  statistical  characterizations  of  the  image  data  are 
not  known  in  advance. 

(2)  Some  blocks  of  the  image  are  more  complex  than  others  and 
require  more  encoded  bits  to  maintain  image  quality. 

Point  2  suggests  that  the  bit  rate  generated  by  the  allocation 
procedure  should  be  variable,  changing  as  the  complexity  of  the  blocks 
through  the  image  changes.  Best  utilization  of  the  channel,  however, 
indicates  that  the  channel  capacity  should  be  the  desired  long-range  bit 


transmission  rate.  This  implies  that  a  buffer  is  needed  to  accept  a 
variable  rate  input  bit  stream  and  which  produces  a  constant  rate  bit 
stream  to  dump  into  the  channel. 

To  ensure  the  long-range  average  bit  transmission  rate  equals  the 
channel  capacity  and  at  no  time  does  the  buffer  overflow  or  underflow, 
a  controller  is  needed  which,  given  the  constraints  of  buffer  size  and 
output  bit  stream  rate,  will  allow  more  or  fewer  bits  to  be  allocated  to 
any  given  block  depending  on  block  complexity.  For  this  to  be  possible, 
the  controller  must  have  knowledge  of  buffer  state;  i.e.,  how  full  the 
buffer  is,  and  the  complexity  of  future  blocks.  In  this  paper,  we  use 
the  RMS  error  versus  bit  rate  function  of  a  block  as  a  measure  of  its 
complexity. 

In  order  to  evaluate  the  results  of  the  causal  rate  buffer  constrained 
bit  allocation  procedure,  we  performed  experiments.  Using  RMS  error  as 
our  criteria  the  experiments  showed  that  the  procedures  can  be  rank 
ordered  from  best  to  worst  by 

(1)  Non-causal  optimal  bit  allocation 

(2)  Non-causal  optimal  bit  allocation  with  rate  buffer  constraints 

(3)  Causal  adaptive  bit  allocation  with  rate  buffer  constraints 

(4)  Non-adaptive  bit  allocation 

Procedures  (1)  through  (3)  will  be  discussed  in  the  next  section.  Experi¬ 
mental  results  and  comparisons  between  (1)  and  (2)  using  several  DPCM 
compression  techniques  will  be  shown  in  the  last  section.  Section  two 
describes  the  DPCM  techniques  used  through  the  Part  I  experiments  and 
section  three  describes  the  image  preprocessing  and  postprocessing 
techniques  used  in  Part  I. 
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2.  Causal  and  Non-Causal  Bit  Allocation 

In  this  section  we  will  formally  define  the  causal  and  non-causal 
bit  allocation  problems  and  provide  solutions  for  them.  In  these  two 
problems  the  image  to  be  compressed  is  assumed  to  be  divided  into  K 
mutually  exclusive  and  equal-sized  blocks.  We  want  to  find  out  a  way 
to  allocate  the  available  bits  to  these  blocks  so  that  the  resulting 
quantization  error  is  minimized.  Bit  allocation  constraints  imposed 
by  the  buffer  size  are  considered. 

2.1  Causal  Bit  Allocation 

In  causal  bit  allocation,  exact  knowledge  of  error  versus  bit  rate 
is  not  available  for  future  blocks,  but  summary  information  of  past 
blocks  is  available.  Causal  bit  allocation  then  employs  a  model  to 
estimate  the  future  error  versus  bit  rate  function  using  the  past  infor¬ 
mation  and  the  buffer  constraints.  Bit  allocation  then  proceeds  using 
these  estimates.  Blocks  with  high  estimated  complexity  get  more  bits 
than  blocks  with  low  estimated  complexity.  First  we  describe  a  causal 
bit  allocation  procedure  which  does  not  use  any  rate  buffer  constraints 
and  then  we  give  a  modification  which  uses  the  rate  buffer  constraints. 

Let  there  be  K  blocks  which  must  be  allocated  bits  and  let 

P  =  {P^,  ....  P^}  be  the  N  possible  bit  allocations  which  can  be  given 

to  each  block.  Let  e  be  the  RMS  error  versus  bit  rate  function  for 

P 

the  present  block,  and  let  ef  be  the  average  error  per  block  we  expect 
to  make  for  future  blocks  after  allocating  bits,  and  will  there¬ 
fore  map  each  element  in  the  possible  bit  assignments  set  P  into  a  real 
value  representing  the  corresponding  RMS  error.  For  any  number  of  bits 
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b  in  the  set  P,  e{ (b)  has  the  meaning  of  the  average  error  made  on  a 
future  block  upon  allocating  an  average  of  b  bits  to  each  future  block. 

Assume  blocks  1  through  t-1  are  the  past  blocks.  Let  bC  be  the 
bits  allocated  to  the  tC^  block  and  BC  be  the  number  of  bits  available 
to  allocate  for  future  blocks  t  to  K.  Then  optimal  bit  allocation 
chooses  bC  to  minimize 


<$«•*> +  «-*>  ef<%r^ 


(2.1) 


After  allocating  b1"  bits  vo  the  t*"*1  block,  there  remains  Bt+^  bits 
where 


Bt+1  =*  BC  -  bC 


(2.2) 


The  present  error  function  can  be  used  to  update  the  expected 

future  one.  When  et(bt)  >  e^b*"),  the  error  that  resulted  from  allo- 
P  f 

eating  b*”  bits  to  the  tt*'  block  is  worse  than  that  expected  for  future 
blocks  and 


e^b*)  -  e^(bt) 
e^b*) 


is  the  relative  amount  of  error  more  than  expected.  When  this  is 
greater  than  zero,  it  should  tend  to  make  the  next  estimate  of  expected 
future  error  larger.  Hence  a  reasonable  updating  formula  for  is: 


1  +  r- 


(bC)  -  e^(bC) 

e^b*) 


(2.3) 
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To  Cake  into  account  rate  buffer  constraints,  we  must  not  allocate 
a  number  of  bits  which  makes  the  rate  buffer  over  or  underflow.  Let  rC 
be  the  number  of  bits  in  the  rate  buffer  just  after  block  t-1  has  been 
processed.  Between  time  t-1  and  t, the  rate  buffer  will  dump  c  bits 
onto  the  channel  and  accept  b1"  bits  from  the  tC^  block.  Hence, 


t+1 


t 

r  - 


+  b 


The  number  r  is  constrained  by  not  under  or  overflowing.  If  the 
buffer  has  R  bits  capacity. 


0  <  r 


t+1 


<  R 


This  implies 

c  -  rC  <  bC  <  R  +  c  -  rf  (2.4) 

One  possible  rate  buffer  constrained  bit  allocation  procedure  Is  to 
choose  h*  which  minimizes  (2.1)  under  the  constraint  of  (2.4).  Another 
is  to  minimize  (2.1)  with  a  penalty  added  for  filling  up  the  buffer. 

That  is,  assuming  the  buffer  is  initially  half  full  and  under  the  con¬ 
straint  of  (2.4)  minimize 


et(bt)  +  (K-t)  e* 
P  £ 


BC  -  bfc 
K-t 


rC  -  c  +  b*  -  R/2 
R/2 


The  causal  scheme  is  illustrated  in  Figure  (2.1). 

The  buffer  size  problem  can  be  stated  as  follows.  Let  Rq  be  the 
initial  state  of  the  buffer,  R  the  buffer  size,  c  the  channel  capacity 
and  K  the  number  of  blocks  per  picture  frame.  In  order  to  prevent 
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Figure  2.1  Causal  Scheme 


6 


overflowing  or  underflowing  the  following  relation  must  be  satisfied 
for  every  L,  1  <  L  <  K. 


R  <  l  b  -  Lc  <  R  -  R 
o  ~  .  n  -  c 

n=l 


(2.5) 


where  represents  the  bits  allocated  to  the  n^  block.  A  judicious 

choice  for  R  is 
o 


R  =  R/2 
o 


therefore  (2.5)  becomes 


£  b  -  Lc 

n-l  n 


<  R/2 


(2.6) 


Letting  the  available  number  of  bits  per  picture  frame  equal  the 
amount  that  can  be  transmitted  over  the  channel,  the  following  relation 
must  be  satisfied  for  every  L,  1  <  L  <  K. 

L 

l  b  <  Kc  (2.7) 

n-l  n 


For  large  buffer  sizes  (R  >  2  K  c),  only  relation  (2.7)  imposes  a 
constraint  on  the  bit  allocation.  For  smaller  buffer  sizes  both 
relations  (2.6)  and  (2.7)  constraint  the  bit  allocation.  We  refer  to 
these  two  situations  as  the  non-buffer  constrained  and  buffer  constrained 
bit  allocation  respectively.  This  is  illustrated  in  Figure  (2.2). 

Assuming  that  the  bit  allocation  procedure  allocates  bits  b^,  ...» 


b,  and  produces  a  fixed  error  for  each  block,  we  want  to  choose  the 


BLOCKS  ENCODED 


K 


Buffer  Constrained  Allocation 
(  R  <  2Kc  ) 


buffer  size  R  so  that  R  is  the  smallest  size  buffer  satisfying  that 
for  every  L,  1  <  L  <  K 

L 

P  l  b  -  Lc  >  R/2  <  P 

(  n=l  n  J  ° 

where  Po  is  a  given  probability. 

This  size  for  R  assures  that  by  choosing  a  bit  allocation  that 
makes  each  block  have  the  same  error,  the  probability  of  buffer  over¬ 
flow  is  kept  to  less  than  probability  Pq. 

2.2  Non-Causal  Bit  Allocation 

In  the  non-causal  bit  allocation  problem, the  error  versus  bit 
rate  functions  for  all  blocks  in  the  image  are  known  before  processing 
therefore  an  optimal  bit  allocation  over  these  blocks  can  take  place 
which  will  minimize  the  total  RHS  error  under  the  constraint  of  a 
fixed  number  of  bits  per  picture  frame.  The  performance  of  the  non- 
causal  approach  is  therefore  a  least  upper  bound  on  any  causal  approach. 

The  optimal  non-causal  bit  allocation  problem  can  be  stated  as 
follows.  Let  there  be  K  blocks  which  must  be  allocated  bits  and  let 
P  *  {p  ,  ....  pN)  be  the  set  of  N  possible  bit  allocations  which  can 
be  given  to  each  block.  The  optimal  non-causal  bit  allocation  problem 
is  then  choosing  b^,  . . . ,  b^  so  that 

f  e  <bn)  (2.8) 

n-1 

is  minimized  under  the  constraint  that 
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K 

l  b  <  B  (2.9) 

S  n 

n=l 

where  B  equals  the  number  of  bits  that  can  be  transmitted  over  the 
channel. 

For  the  non-causal  buffer  constrained  bit  allocation  problem,  in 
addition  to  (2.9), the  following  relation  constraints  (2.8)  for  all  L, 

1  <  L  <  K 


n=l 


b  -  Lc 
n 


<  R/2 


(2.10) 


where  R  is  the  buffer  size  and  c  the  channel  capacity. 

Appendix  A. 2  provides  a  dynamic  programming  procedure  that  solves 
the  non-causal  bit  allocation  problem.  Appendix  A. 3  provides  an 
analytic  solution  to  this  problem.  Figure  2.3  illustrates  the  non- 
causal  scheme. 
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Figure  2.3  Non-Causal  Scheme 
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3.  DPCM  Compression  Techniques 

Among  the  best  known  image  compression  techniques,  are  those  based 
on  Differential  Pulse  Code  Modulation  (DPCM).  DPCM  works  in  the 
following  general  way.  Information  which  the  receiver  already  has 
is  used  to  predict  or  estimate  the  actual  data  value.  This  estimate 
is  computed  both  at  the  transmitter  and  the  receiver.  The  transmitter 
codes  and  sends  the  difference  between  the  actual  data  value  and 
the  estimated  data  value.  The  receiver  adds  the  received  difference 
to  its  estimate  to  reconstruct  the  actual  data  value.  With  a  good 
estimation  scheme,  the  variance  of  the  transmitted  difference 
values  is  likely  to  be  much  smaller  than  the  variance  of  the  actual  data 
values.  In  this  way  compression  is  achieved  since  fewer  bits  are 
required  to  encode  the  smaller  variance  difference  values  to  be  trans¬ 
mitted. 

According  to  the  spatial  location  of  the  information  used  in  the 
estimation  or  prediction  scheme,  we  can  distinguish  two  main  types  of 
DPCM  schemes;  one-dimensional  and  two-dimensional  DPCM.  In  the  one¬ 
dimensional  DPCM  scheme  values  only  on  the  current  line,  usually  from 
the  reconstructed  image,  are  used  to  estimate  the  actual  data  value. 

In  two-dimensional  DPCM  values  from  the  current  and  immediate  neighboring 
lines  are  used.  Past  reconstructed  data  values  are  used  in  classical 
1-D  and  2-D  DPCM.  For  one-dimensional  time  signals,  past  means  data 
values  which  precede  the  current  data  value  in  time.  In  classical  2-D 
DPCM  image  coding,  when  the  image  data  values  are  generated  in  the  usual 
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raster  sean  mode,  past  data  values  are  those  data  values  on  lines  above 
the  current  line  or  data  values  on  the  current  line  but  to  the  left  of 
the  current  data  value. 

To  specify  a  2-D  DPCM  procedure  the  quantizer,  quantizer  dither 
and  predictor  must  be  defined.  The  quantizer  should  be  a  Max  quantizer 
based  on  the  distribution  of  the  image  differences.  A  detailed  information 
on  the  Max  quantizer  is  provided  in  appendix  A.l. 

Before  quantizing  the  image  differences,  a  small  amount  of  dither 
should  be  added  to  these  differences  and  then  subtracted  from  the 
quantized  value  to  help  eliminate  contouring  effects.  The  dither  can 
be  created  from  a  uniformly  distributed  pseudo-random  number  generator 
having  zero  mean  and  a  range  proportional  to  the  standard  deviation  of 
the  image  differences. 

The  predictor  can  be  a  linear  combination  of  previously  DPCMed 
neighboring  values  or  values  coming  from  a  low-pass  filtered  image  or 
a  combination  of  both.  This  results  in  three  types  of  DPCM  techniques: 
closed  loop  DPCM,  open  loop  DPCM, and  combined  open  and  closed  loop  DPCM. 

We  will  describe  each  of  these  techniques  in  sections  3.1,  3.2  and  3.3. 

3.1  Closed  Loop  2-D  DPCM 

This  corresponds  to  the  classical  2-D  DPCM  technique.  It  involves 
using  a  linear  combination  of  the  west,  north-west,  north,  and  north¬ 
east  previous  DPCMed  values  as  an  initial  predictor,  quantizing  the 
difference  between  the  original  value  and  it,  and  forming  a  final  pre¬ 
dictor  or  reconstructed  value  by  adding  the  quantized  value  to  the 


initial  predictor.  As  mentioned  before,  a  small  amount  of  dither  should 
be  added  to  the  differences  before  quantizing  and  substracted  after¬ 
wards.  Figure  3.1  illustrates  the  closed  loop  DPCM  concept. 

3.2  Open  Loop  DPCM 

In  this  DPCM  technique,  the  current  data  value  is  estimated  using 
some  available  rough  estimates  of  data  values  in  the  neighborhood  of 
the  data  value  to  be  estimated.  The  algorithm  is  based  on  the  fact 
that  a  low-pass  filtered  image  makes  a  good  estimate  of  the  original 
image . 

The  image  to  be  compressed  is  low-pass  filtered  and  sampled  taking 
every  mth  row  and  nth  column.  The  sampled  values  are  coded  and  sent  to 
the  receiver.  The  receiver  estimates  the  image  by  interpolating  these 
low-passed  sampled  values.  The  transmitter  transmits  the  dithered 
quantized  difference  between  the  actual  data  value  and  the  receiver's 
estimated  value. 

This  open  loop  procedure  has  the  following  nice  property:  a 
channel  error  in  the  coded  difference  will  affect  only  the  data  value 
in  the  resolution  cell  associated  with  the  coded  difference.  A  channel 
error  in  the  PCM  transmission  of  the  low-pa  =  filtered  image  will  affect 
only  the  small  neighborhood  of  resolution  cells  using  the  PCM  value  in 
the  interpolation.  Figure  3.2  illustrates  this  technique. 

3.3  Combined  Open  and  Closed  Loop  DPCM 

This  technique  computes  an  initial  predictor  as  a  linear  combination 
of  the  four  DPCMed  values  used  in  the  closed  loop  technique  plus  values 
from  the  five  remaining  neighbors  coming  from  the  low-pass  filtered  image. 
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Figure  3.1  Closed  Loop  DPCM 
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Figure  3.2  Open  Loop  DPCM 
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The  difference  oetween  Che  original  value  and  the  predictor  is 
determined  and  a  small  amount  of  dither  coming  from  a  uniform  pseudo 
random  generator  is  added  to  the  difference.  The  result  is  quantized. 

The  quantized  result  is  added  to  the  initial  predictor  and  the  dither 
is  substracted  to  form  the  final  predictor.  Thus  to  specify  the 
combined  method,  the  low-pass  filtered  image,  the  quantizer,  the 
dither,  and  the  coefficients  of  the  predictor  must  be  defined. 

Fig.  3.3  illustrates  the  combined  method. 

3.4  Models  for  Predictor  Design 

We  stated  in  the  previous  sections  that  the  predictor  can  be 
computed  as  a  linear  combination  of  previous  DPCMed  values  and/or 
values  coming  from  a  low-pass  filtered  image.  One  question  that  now 
arises  is  how  to  determine  the  coefficients  in  the  linear  combination 
in  order  to  have  a  good  predictor.  The  answer  to  this  question  is  of 
considerable  importance  since, as  it  was  mentioned  before  a  good  pre¬ 
dictor  scheme  will  result  in  a  small  variance  for  the  image  differences 
to  be  transmitted,  which  in  turn  accounts  for  the  degree  of  compression 
achieved.  We  shall  investigate  this  problem  in  this  section  and  will 
provide  several  solutions  each  optimal  under  a  different  model. 

We  will  approach  the  predictor  design  problem  under  the  assumption 
that  the  resolution  cells  involved  in  the  evaluation  of  the  predictor 
all  share  a  certain  graytone  property.  In  other  words,  our  model  assumes 
that  the  resolution  cell  whose  graytone  we  want  to  estimate  and  those 
in  the  surrounding  3x3  neighborhood  belong  to  a  certain  region  within 
the  spatial  domain  of  the  image,  and  therefore  satisfy  some  relationship. 
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Figure  3.3  Combined  Open  and 
Closed  Loop  DPCM 
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This  model  will  be  an  over-simplification  of  a  more  complete  model  for 
image  data  that  will  be  described  in  section  four,  but  will  suffice 
for  the  purposes  we  are  interested  in  this  section. 

Two  specific  sub-models  that  fall  under  the  general  context  des¬ 
cribed  above  shall  be  investigated:  the  flat  (horizontal)  model  and 
the  sloped  model.  The  flat  model  assumes  that  all  resolution  cells 
within  a  region  have  the  same  gray tone  value.  The  sloped  model  assumes 
that  there  is  a  linear  relationship  among  row  and  column  indexes  and 
graytone  values  which  is  satisfied  for  all  resolution  cells  within  a 
region.  If  we  let  (r,  c)  be  the  row  and  column  indexes  pair  identifying 
a  resolution  cell  within  a  region  and  I(r,  c)  the  corresponding  graytone 
value  then  we  will  have 

I (r ,  c)  *  y 

for  the  flat  model,  and 

I(r,  c)  *  ar  +  Be  +  y 

for  the  sloped  model, 

where  a,  g  and  y  are  parameters  that  describe  a  particular  region. 

We  may  now  take  into  account  the  effect  of  random  noise  added  to 
the  data.  Assuming  stationary  noise  with  zero  mean  the  real  (noisy) 
image  data  can  be  described  as : 

y(r,  c)  *  I(r ,  c)  +  z(r,  c) 

where 

E[z(r,  c)  =  0 

E[z(r,  c)z(r',  c')J  «  Ko(r-r*,  c-c') 
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Let  (y^,  y^}  be  the  set  of  graytone  values  to  be  used  in  the 

estimation  process,  {r, ,  ....  r  }  and  {c,  ,  ....  c  }  be  the . corresponding 
r  1  n  1  n 

sets  of  row  and  column  indexes,  and  {z^ . z^)  the  associated  random 

noise  values;  then  the  following  linear  relations  result  by  applying 
the  flat  or  sloped  model. 
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for  the  flat  model  and 


for  the  sloped  model. 

Both  relations  can  be  expressed  as 

y  =  Ap  +  z 

where  y  is  a  column  vector  representing  the  data,  A  is  the  design  matrix, 
p  the  parameter  vector  and  z  the  error  vector  which  represents  the  random 
noise.  The  design  matrix  A  can  be  also  written  in  the  form 

A  =  [  1  ] 


for  the  flat  model  or 

A  =  (r,  c,  1) 

for  the  sloped  model, 

whore  r  is  the  column  vector  of  row  indexes,  c  the  column  vector  of  column 
indexes  and  1  a  column  vector  containing  all  ones. 
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The  predictor  design  problem  consists  then  in  estimating  the 
parameter  vector  Two  estimation  schemes  can  be  used  for  this 
purpose,  least  square  error  estimates  and  minimum  variance  unbiased 
estimates.  Each  of  these  two  approaches  is  optimal  as  we  shall  see 
later  depending  on  whether  the  noise  is  uncorrelated  or  correlated. 

3.4.1  Least  squares  estimates 

The  "least  squares"  approach  tells  us  to  estimate  p  in  such  a 
way  that  the  sum  of  squares  of  errors  (noise  value)  is  minimized. 
Our  model  is  described  by 

y  -  Ap  +  z 

Since  z'z  is  the  desired  sum  of  squares,  we  have 

z  =*  y  -  Ap 
z 1  ”  y '  -  p'A* 
z'z  -  (y'  -  p'A')(y  -  Ap) 

Obtaining  the  derivative  and  setting  the  resuit  to  zero 

8<3p--  -  -2A' (y  -  Ap)  -  0 
(A'A)p  =  A'y 

SoLving  for  p  we  obtain 

p  =  (A' A)  1  A'y 

3.4.2  Minimum  variance  unbiased  estimates 

The  minimum  variance  unbiased  estimate  of  p  is  obtained  by  the 
application  of  a  very  general  form  of  Gauss  Markov  Theorem:  Let 

y  =  Ap  +  z 
E(z)  ■=  0 

2 

var(y)  =  var(z)  *  a  V 
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where  V  is  a  matrix  (square,  symmetric,  non-singular)  of  order  (n  x  n) 

with  known  elements.  In  other  words  the  covariance  matrix,  i.e.,  the 

variances  of  y(i)  and  covariances  between  y(i)  and  y(i)  are  known 

except  for  an  arbitrary  scalar  multiplier  applied  to  all  of  them.  Then 

the  best  linear  estimate  of  an  arbitrary  linear  function  £'p  is  equal  to 
*  * 

2'p  where  p  minimizes  the  guadratic  form 

z'V-1  z 

Notice  that  minimizing  this  expression  is  equivalent  to  minimizing  the 
standard  quadratic  form  due  to  error,  that  is 


a 

Obtaining  the  derivative  and  setting  the  result  to  zero 
^  z'V-1  z  =  ~  (y  -  p'A')V  1  (y  -  Ap) 

=  -2A'V_1  (y  -  Ap)  =  0 


or 

A'V_1  Ap  =  A'V"1  y 


therefore 

*  -1  -1  -1 
p  =  (A'V  XA)  A'V  y 

1.4.  1  Kelat lonshlp  between  least  squares  and  minimum  variance  unbiased 
estimates 

* 

We  found  out  that  the  best  estimate  of  the  parameter  vector  p 
assuming  random  stationary  noise  with  zero  mean  and  covariance  matrix 
proportional  to  a  specified  one,  could  be  obtained  by  minimizing  the 
standard  quadratic  form  due  to  error,  that  is 


z 


* 
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where 


E(z)  =  0 

-  2 

var(z)  =  l  *  o  V 
If  we  now  assume  the  noise  to  be  uncorrelated,  that  is 

I  =  °2  I 

* 

then  the  best  estimate  p  of  the  parameter  vector  p  is  obtained  by  mini¬ 
mizing  z'l  ^z  *  z'z.  In  other  words  least  square  estimation  turns  to  be 
an  optimal  procedure  and  provides  the  same  result  as  that  obtained  with 
a  minimum  variance  unbiased  estimate  only  if  the  noise  is  uncorrelated. 
Under  the  more  general  case  of  correlated  noise  least  square  estimation 
is  a  suboptimal  procedure  and  a  minimum  variance  unbiased  estimate  pro¬ 
vides  the  optimal  solution. 

3. 4. A  Predictor  design  solution  for  the  combined  open  and  closed  loop 
DP  CM 

In  this  case  the  data  set  to  be  used  in  the  estimation  procedure 
comprises  a  3  x  3  neighborhood  formed  by  the  four  past  DPCMed  data 
values  and  the  five  remaining  neighbors  coming  from  a  lowpass  filtered 
image.  Using  the  set  (-1,  0,  1}  for  row  and  column  indexes  this  data 
Is  represented  in  Fig.  3.4. 

We  will  assume  that  the  correlation  between  any  two  pixels  depends 

only  on  the  distance  between  those  pixels  and  follows  an  exponential 

law.  That  is,  the  correlation  between  any  two  pixels  K  units  apart  is 
£ 

equal  to  p  .  The  covariance  matrix  is  then  given  by 

l  =  a2V 

where  is  the  variance  of  any  pixel  and  V,  the  matrix  of  correlations 
has  the  form  showed  in  Fig.  3.5.  If  we  let 
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Figure  3.5  Matrix  of  Correlations  V  for 
Data  Set  of  Figure  3.4 
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r  = 


1  p  p 


21 


p  l  p 


p  p  i 


then  V  can  be  written  as 


r  pr  p2r' 
Pr  r  Pr 


pzr  Pr  r 


-l 


and  tlie  inverse  matrix  V  becomes 


,-l 


1-Pi 


„-l 


-pr 


-1  2  -1 

-Pr  (i+p  )r  1 


-pr 


-pr 

r»  —  1 


where  T  is  given  by 


„-l 


1-p 


1  -p  0 

2 


-p  1+p  -p 
0  -p  1 


Any  member  y(r,  c)  in  the  data  set  can  be  estimated  as 


*  * 

y  (r,  c)  =  y 


/or  the  flat  model  and 


y  (r,  c)  =  a*r  +  B*c  +  y* 


for  the  sloped  model. 


Since  we  are  interested  in  estimating  y(0,  0)  both  models  yield 


*  * 
y  (0,  0)  =  y 


1 


We  have  two  models:  flat  and  sloped  and  on  the  other  hand  we  have 
two  estimation  schemes:  least  squares  and  minimum  variance  unbiased 
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estimates.  This  result  is  four  possible  estimates  for  y(0,  0).  In  the 
analysis  that  follow  let  the  column  vectors  r,  c  and  1  be  defined  as 
follows : 


-ll  f-i  1  [~1 

-10  1 

-111 
0-11 
r  =  0  c  m  0  1=1 

Oil 
1-11 
l.o  1 

!j  L  iJ  Li 


The  vectors  r  and  c  represent  respectively  the  row  and  column  indexes 
v  for  the  data  set  {y(r,  c)}  as  we  scan  the  spatial  domain  of  the  set  in 
a  left  to  right,  top  to  bottom  fashion. 

1st  Case.  Flat  Model;  least  squares  estimates 
For  least  square  estimates, 

p  =  (A' A)  1  A'y 

where  p  =y  and  A  =  1  (flat  model) 
then  y  *  (l'l)  ^  y 


so,  in  this  case,  the  predictor  is  formed  using  a  simple  statistical  mean. 
The  resulting  linear  prediccion  mask  is  shown  in  Fig.  3.6. 

2nd  Case.  Flat  Model;  minimum  variance  unbiased  estimates 
In  this  case 

p*  =  (A’V-1  A)"1  A'V"1  y 
As  before  p  =  y  and  A  =  1 

therefore  Y  =  (l'V  ^  1)  ^  l'V  *  y 
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Figure  3.6  Linear  Prediction  Mask  for  y 
Open  and  Closed  Loop  DPCM 
Flat  Model,  Least  Squares  Estimates 
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The  resulting  linear  prediction  mask  is  shown  in  Fig.  3.7.  As  we 
expected  for  uncorrelated  noise  (p  =  0)  this  mask  reduces  to  the  one 
found  in  the  1st  case. 


3rd  Case.  Sloped  Model;  least  squares  estimates 
Here  we  have 

p  =  (A'A)  ^  A'y 


where 

then 


A  =  [  r  c  1  ] 
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The  corresponding  linear  prediction  masks  are  shown  in  Fig.  3.8. 

4th  Case.  Sloped  Model;  minimum  variance  unbiased  estimates 

The  estimate  in  this  case  is  given  by 

*  -1  -1  -1 
p  *  (A'V  XA)  A'V  y 

where  as  before  A  =  (  r  c  1  ] 


30 


Figure  3.8  Linear  Prediction  Masks  for  p 

Sloped  Model,  Least  Squares  Estimates, 
Open  and  Closed  Loop  DPCM 
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The  corresponding  linear  predictor  masks  are  shown  in  Fig.  3.9.  Again, 
for  uncorrelated  noise  these  masks  reduce  to  the  ones  shown  in  Fig.  3.8 
corresponding  to  least  squares  estimates. 

The  masks  corresponding  to  our  desired  estimate  y(0,  0)  for  each  of 
the  cases  analyzed  are  shown  in  Fig.  3.10.  Notice  there  is  no  difference 
between  the  results  obtained  with  the  flat  or  sloped  modes  as  far  as  the 
estimation  of  y(0,  0)  is  concerned.  This  can  be  intuitively  seen  since 
the  symmetry  of  the  problem  causes  the  horizontal  plane  associated  with 
the  flat  model  to  pass  through  the  center  of  the  sloped  fitting  plane 
associated  with  the  sloped  model. 
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Figure  3.10  Masks  for  y(0,0)  in  Combined  DPCM 

(a)  Flat,  Least  Squares 

(b)  Flat,  Minimum  Variance 

(c)  Sloped,  Least  Squares 

(d)  Sloped,  Minimum  Variance 
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3.4.5  Predictor  design  solution  for  closed  loop  DPCM 


As  we  know,  the  data  set  corresponding  to  this  case  ig  formed  by 
the  nearest  four  past  DPCMed  data  values.  The  matrix  of  correlations 
V  is  given  by 


P2  P  1  P' 

2  3  . 

p  p  p  1 


and  the  inverse  matrix  V  ^  is 
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-i 


i-p 


1+P2 

-p 
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-p 

-p 

1+p2 

-p 
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-p 
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0 

-p 
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1 

The  analysis  for  the  four  possible  estimates  of  y(0,  0)  is  carried  out 
exactly  the  same  way  as  that  described  in  the  combined  open  and  closed 
loop  DPCM  and  we  will  only  provide  the  final  solutions  here  which  are 


shown  in  Fig.  3.11. 


/( 0.0) 


Figure  3.11  Masks  for  y(0,0)  in  Closed  Loop  DPCM 

(a)  Flat,  Least  Squares 

(b)  Flat,  Minimum  Variance 
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(c)  Sloped,  Least  Squares 

(d)  Sloped,  Minimum  Variance 
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4.  Preprocessing  and  Postprocessing  Techniques 


Two  types  of  noise  contribute  to  the  deterioration  of  the  information 
contained  in  the  image  data.  The  first  one  originates  at  recording  time 
and  is  introduced  by  the  remote  sensors  or  the  associated  hardware;  or 
is  due  to  varying  atmosphere  variables  present  in  the  environment.  The 
second  type  of  "noise"  accounts  for  the  amount  of  information  lost  when 
compressing  the  data  or  is.  introduced  by  the  channel  during  transmission. 

The  effect  of  both  types  of  noise  can  be  kept  to  a  minimum  by  noise  filter¬ 
ing  the  data  before  and  after  transmission  using  one  of  several  preprocess¬ 
ing  or  postprocessing  techniques. 

The  technique  we  are  going  to  describe  in  this  section  is  based  upon 
the  facet  model  for  image  data  proposed  by  Haralick  (Reference  1)  and  which 
was  briefly  introduced  in  the  previous  section.  The  facet  model  assumes  that 
the  spatial  domain  of  the  image  can  be  partitioned  into  regions  having 
certain  graytone  and  shape  properties. 

To  assume  smoothness  of  a  region,  the  facet  model  assumes  that  for 
each  image  there  exists  a  K  >  1  such  that  each  region  in  the  image  can 
be  expressed  as  the  union  of  K  x  K  block  of  pixels.  The  value  of  K 
associated  with  an  image  means  that  the  narrowest  part  of  each  of  its 
regions  is  at  least  as  large  as  a  K  x  K  block  of  pixels.  Hence,  images 
which  can  have  large  values  of  K  have  very  smooth  regions. 

The  flat  (horizontal)  model  assumes  that  all  pixels  in  the  same 
region  have  the  same  graytone.  The  sloped  facet  model  assumes  that  for 
each  region  there  exists  an  affine  relationship  among  the  row,  column, 
and  graytone  values  which  all  pixels  in  the  region  satisfy. 


39 


To  make  these  ideas  precise,  let  Z  and  Z  be  the  row  and  column 

r  c 

index  set  for  the  spatial  domain  of  an  image.  For  any  (r,.c)e  Z x  Z^, 

let  I(r,  c)  be  the  graytone  value  of  resolution  cell  (r,  c)  and  let 

B(r ,  c)  be  the  K  x  K  block  of  resolution  cells  centered  around  resolution 

cell  (r,  c).  Let  A  =  {A^,  A^}  be  a  partition  of  Zf  x  Z c  into 

its  regions.  In  the  facet  model,  for  every  resolution  cell  (r,  c)e  A^, 

there  exists  a  resolution  cell  (i,  1)e  Z  x  Z  such  that 

r  c 


(1)  (r,  c)e  B(i,  j)  <  A 


(n) 


(2)  I(r,  c)  =  (flat  model)  or, 

Hr,  c)  -  «(n)r  +  6(n)c  *  Y(n)  (  sloped  model) 


Here  (1)  and  (2)  constitute  respectively  the  shape  and  graytone  constraints 
for  region  A(nj* 

As  we  have  seen  before  the  actual  image  differs  from  the  ideal  one  by 
the  addition  of  random  stationary  noise  having  zero  mean  and  covariance 
matrix  proportional  to  a  specified  one. 

y(r,  c)  =  I(r,  c)  +  z(r,  c) 

Using  the  vectorial  notation  developed  in  section  three: 

y  =  Ap  +  z 

where  E(z)  =  0 

2 

var(z)  »  o  V 

The  facet  model  suggests  then  the  following  simple  non-linear 

2 

filtering  procedure.  Each  resolution  cell  is  contained  in  K  different 

K  x  K  blocks.  The  graytone  distribution  in  each  block  can  be  fit  by 

2 

either  a  horizontal  plane  or  a  sloped  plane.  One  of  the  K  blocks  has 
smallest  error  of  fit.  Set  the  output  graytone  value  to  be  the  one 
fitted  by  the  block  having  smallest  error.  The  error  of  fit  is  given  by 


AO 


z'z  (uncorrelated  noise)  or, 
z'V  ^z  (correlated  noise)  . 

The  linear  filter  masks  corresponding  to  the  fitting  parameters 
and  for  the  flat  and  sloped  model  under  the  assumptions  of  uncorrelated 
or  correlated  noise  were  found  in  section  three  and  are  shown  in  Figs.  3.6, 
3.7,  3.8  and  3.9. 
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5 .  Experiment  Design 

In  this  section  we  lay  out  the  organization  of  the  experiments  done 
which  apply  the  algorithms  devised  in  section  two  to  a  number  of  real 
images  using  a  non-causal  bit  allocation  scheme  with  and  without  buffer 
size  constraints. 

The  size  of  the  experiments  is  determined  by  points  I  through  VI 
below. 

I .  Images 

Two  original  images  with  different  degrees  of  complexity  were  used. 
Each  of  these  images  consist  of  100  x  100  picture  elements  and  were  di¬ 
vided  into  100  blocks  of  10  x  10  picture  elements  before  processing. 
Both  images  were  quantized  to  64  gray  levels. 

II.  DPCM  predictors 

As  mentioned  in  section  three,  eight  kinds  of  DPCM  predictors  are 
possible,  comprising  all  the  possible  combinations  of 

(a)  two  DPCM  compression  techniques:  Closed  loop  2-D  DPCM 
and  Combined  open  and  Closed  loop  DPCM 

(b)  two  image  models:  Flat  model  and  sloped  model 

(c)  two  estimation  schemes :  least  squares  estimates  and  minimum 
variance  unbiased  estimates 

For  minimum  variance  estimates  a  correlation  coefficient  of  0.3  was 
assumed  for  the  noise.  The  notation  used  is: 
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CD  -  Closed  loop  2-D  DPCM 

MD  -  Combined  Open  and  Closed  loop  DPCM 

FM  -  Flat  model 

SM  -  Sloped  model 

LS  -  Least  squares  estimates 

MV  -  Minimum  variance  unbiased  estimates 

III.  Buffer  size 

Two  buffer  sizes  were  selected,  each  one  corresponding  to  the  cases 
of  non-buffer  constrained  and  buffer  constrained  bit  allocation  respec¬ 
tively.  For  the  case  of  non-buffer  constrained  allocation,  the  size  of 
the  buffer  used  was  twice  the  amount  of  bits  that  can  be  transmitted  over 
the  channel  per  picture  frame  for  a  given  compression  ratio.  This  size 
was  shown  in  section  two  to  be  the  minimum  size  ensuring  no  constraints. 
For  the  case  of  buffer  constrained  allocation,  the  size  of  the  buffer 
was  set  to  5%  of  the  amount  of  bits  transmitted  over  the  channel  per 
picture  frame. 

The  following  notation  is  used: 

NB  -  Non-Buffer  constrained  allocation 
BC  -  Buffer  constrained  allocation 

TV.  Compression  ratio 

Two  compression  ratios  were  selected;  2.0  and  1.5  bits  per  picture 

-f. 

element  .  The  possible  bit  allocations  to  any  block  were  1,  2,  3,  4,  or 
5  bits  per  picture  element. 

Tfhe  DPCM  was  initialized  at  the  beginning  of  each  block  by  applying  a 
PCM  to  the  first  line  of  the  block  with  no  compression.  This  accounts 
for  effective  compression  ratios  of  2.5  and  2.0  bits  per  picture  element. 
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V.  Error  versus  bit  functions 

We  can  use  the  actual  error  versus  bit  function  for  epch  block, 
or  we  can  fit  error  versus  block  variance,  for  all  possible  bit  rates 
and  obtain  the  error  versus  bit  rate  functions  for  each  block  from 
these  curves.  The  latter  approach  will  tell  us  if  the  error  versus 
bit  functions  can  be  parametrized  successfully  to  reduce  the  computa¬ 
tional  burden.  We  chose  a  least  squares  fitting  procedure  that  fits 
the  data  to  a  polynomial  of  degree  6.  Also  the  variance  of  the  dif¬ 
ference  between  the  actual  values  and  the  predicted  values  was  used 
instead  of  the  variance  of  the  actual  values,  since  it  showed  a  better 
correlation  with  the  RMS  errors.  We  use  the  following  notation: 

AE  -  Actual  error  versus  bit  functions 
FE  -  Fitted  error  versus  bit  functions 

VI.  Preprocessing  and  postprocessing  techniques 

The  preprocessing  and  postprocessing  techniques  used  correspond  to 
the  sloped  facet  model  discussed  in  section  four.  The  least  squares 
estimation  scheme  was  used.  We  use  the  following  notation: 

PR  -  preprocessing 
NR  -  no  preprocessing 
PO  -  postprocessing 
NP  -  no  postprocessing 

I  through  VI  give  us  a  total  of  512  resulting  images.  A  suitable 
choice  of  720  images  out  of  the  total  number  was  made  to  carry  out  the 
actual  experiments.  Figures  5.1  through  5.4  show  the  selection  made. 
Still  some  savings  result 
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from  the  fact  that  there  are  only  6  distinct  predictors  as  observed  in 
figs.  3.10  and  3.11.  We  tried  to  obtain  a  reasonably  complete  set  of 
images  using  the  Combined  Open  and  Closed  loop  DPCM  technique  which 
performs  better  than  the  Closed  loop  DPCM. 
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Figure  5.1  Selection  Made  for  Images  Compressed  at  2.0  b/p  Under 
Non-Buffer  Constrained  Allocation.  No  Preprocessing 


6.  Experimental  Results 

We  report  In  this  section  on  the  results  obtained  after  carrying  out 
the  experiments  laid  out  on  the  previous  section.  A  non-causal  procedure 
using  the  dynamic  bit  allocation  algorithm  described  in  Appendix  A. 2  was 
applied  to  the  two  LANDSAT  images  shown  in  Fig.  6.1.  These  images  were 
quantized  to  64  gray  levels.  Size,  blocking  and  allowed  bit  allocations 
to  any  block  are  as  established  in  section  five. 

I.  Non-Buffer  constrained  allocation;  Actual  errors 

DPCM  compression  procedures  using  each  of  the  predictor  masks  developed 
in  section  three  were  applied  to  both  LANDSAT  images.  Differences  among 
the  reconstructed  images  obtained  depended  mostly  on  the  compression 
technique  used,  combined  DPCM  or  closed  loop  DPCM  and  not  so  much  on  the 
image  model  or  the  estimation  scheme  used  to  form  the  predictor.  Fig.  6.2 
shows  the  reconstructed  pictures  compressed  to  2.0  bits  per  picture  ele¬ 
ment  per  two  different  predictors,  one  corresponding  to  the  combined  DPCM, 
sloped  model,  least  squares  estimates  and  the  other  to  the  closed  loop 
DPCM,  flat  model,  least  squares  estimates.  RMS  errors  versus  bit  rate 
curves  with  variance  as  a  parameter  and  error  versus  variance  for  several 
bit  rates  are  shown  in  Figures  6.3  and  6.4  for  the  predictor  corresponding 
to  the  Combined  DPCM,  sloped  model,  least  squares  estimates.  As  expected 
for  a  fixed  number  of  bits,  blocks  with  lower  complexity  (variance)  have 
associated  smaller  RMS  errors  than  those  with  greater  complexity.  Also 
for  a  fixed  block  complexity  more  encoded  bits  result  in  a  smaller  RMS 
error.  A  comparison  or  error  curves  among  different  predictors  is  shown 
in  Fig.  6.5.  We  can  observe  that  the  RMS  errors  associated  with  the 
combined  DPCM  are  signficantly  lower  than  those  associated  with  the  closed 
loop  DPCM  technique.  There  is  no  significant  difference  though  in  the 
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Figure  6.1  Original  pictures;  each  picture  consists  of 
100  x  100  picture  elements  quantized  to  64 
gray  levels  (6  b/p) 

(a)  First  LANDSAT  image 


Figure  6.1  (continued) 

(b)  Second  LANDSAT  image 
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Figure  6.2  Reconstructed  pictures  using  non-buffer 
constrained  allocation  and  actual  errors. 
Compression  is  2.0  b/p. 

(a)  First  LANDSAT  image 
Predictor:  MD,  SM,  LS 
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Figure  6.2  (continued) 

(b)  First  LANDSAT  image 
Predictor:  CD,  FM,  LS 
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Figure  6.2  (continued) 

(c)  Second  LANDSAT  image 
Predictor:  MD,  SM,  LS 
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Figure  6. 


2  (concluded) 

(d)  Second  LANDSAT  image 
Predictor:  CD,  FM,  LS 
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Figure  6. 


Block  RMS  Error  vs.  Bit  Rate 
MD,  SM,  LS 

(a)  First  LANDSAT  Image 


57 


1 


2 


3  4 

BIT  RATE 


(b)  Second  LANDSAT  Image 
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(b)  Second  LANDSAT  Image 
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Figure  6.5  Comparisons  Among  OPCM  Predictors  ( =  2  ) 
v>  CD,  FM,  MV  or  LS 
o  CD,  SM,  MV,  or  LS 
A  MD,  FM  or  SM,  LS 
n  MD,  FM  or  SM,  MV 
(a)  First  LANDSAT  Image 
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(b)  First  LANDSAT  Image  (  ^ 
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(e)  Face  Image  (  6  =  4  ) 
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RMS  errors  among  predictors  associated  with  the  combined  method  or  in 
the  quality  of  the  corresponding  resulting  pictures.  The  difference, 
however,  may  become  noticeable  with  noisier  images. 

Fig.  6.6  shows  the  reconstructed  pictures  compressed  to  1.5  bits  per 
picture  element  for  the  predictor  associated  with  the  combined  DPCM, 
sloped  model,  least  squares  estimates. 

II.  Buffer  constrained  allocation;  Actual  errors 

Fig.  6.7  shows  the  reconstructed  pictures  for  2.0  and  1.5  bits  per 
picture  element  using  the  predictor  associated  with  the  combined  DPCM, 
sloped  model,  least  squares  estimates.  Fig.  6.8  shows  plots  of  the  buf¬ 
fer  state  as  the  blocks  in  the  image  are  allocated  bits  for  the  predic¬ 
tor  associated  with  the  combined  DPCM,  sloped  model,  least  squares  esti¬ 
mates.  Both  the  non-buffer  constrained  and  the  buffer  constrained  case 
are  shown  along  with  the  corresponding  total  RMS  errors  for  all  the 
blocks  in  the  image.  Notice  that  the  reconstructed  pictures  with  buffer 
constraints  do  not  show  a  significant  deterioration  in  quality  as  com¬ 
pared  to  the  non-constrained  case  for  the  buffer  size  used. 

III.  Non-Buffer  constrained  allocation;  Fitted  errors 

Images  compressed  at  2.0  and  1.5  bits  per  picture  element  using  the 
fitted  error  versus  bit  rate  functions  for  bit  allocation  did  not  show 
significant  degradation  in  quality  as  compared  to  that  obtained  using 
the  actual  errors  shown  in  Figs.  6.2  and  6.6,  which  indicate  that  a  model 
relating  the  fitting  parameters  with  the  sample  variance  could  be  used 
successfully  with  a  significant  decrease  in  the  computational  burden. 

Fig.  6.9  shows  plots  of  Buffer  state  versus  blocks  encoded  for  the  pre¬ 
dictor  associated  with  the  combined  DPCM,  sloped  model,  least  squares 
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Figure  6.6  Reconstructed  Pictures  Using  Non-Buffer 
Constrained  Allocation  and  Actual  Errors. 
Compression  is  1.5  b/p 

(a)  First  LANDSAT  Image 

Predictor:  MD,  SM,  LS 
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Figure  6.6  (continued) 

(b)  Second  LANDSAT  Image 
Predictor  MD,  SM,  LS 
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Figure  6.7  Reconstructed  Pictures  Using  Buffer  Constrained 
Allocation  and  Actual  Errors 

(a)  First  LANDSAT  Image 

Predictor:  MD,  SM,  LS 
2.0  b/p 
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Figure  6.7  (continued) 

(b)  Second  LANDSAT  Image 
Predictor:  MD,  SM,  LS 
2.0  b/p. 
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Figure  6.7  (continued) 

(c)  First  LANDSAT  Image 
Predictor:  MD,  SM,  IS 
1.5  b/p 
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Figure  5.7  (continued) 

(d)  Second  LANDSAT  Image 
Predictor:  MD,  SM,  LS 
1.5  b/p. 


BUFFER  STATE  (NO  CONSTRAINED) 


22000 


21500 


21000 


20500 


200001 

0 


no  constrained,  rmse  =  135.1 
—  constrained,  rmse  =  137.6 
fixed  bit  allocation,  rmse  =  151.8 


- 1 _ I _ L_ 

25  50  75 

BLOCKS  ENCODED 

Figure  6.8  Buffer  State  vs  Number  of  Blocks  Uncoded 
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(b)  Second  LANDSAT  Image 


estimates.  Both  the  actual  error  case  and  the  fitted  error  case  are 
shown  along  with  the  corresponding  total  RMS  error. 

[V.  Buffer  constrained  allocation;  Fitted  errors 

As  in  the  previous  case,  the  quality  of  the  reconstructed  images  com¬ 
pressed  at  2.0  and  1.5  bits  per  picture  element  was  similar  to  that  ob¬ 
tained  using  the  actual  error  versus  bit  rate  functions. 

V.  Preprocessing  and  Postprocessing 

Fig.  6.10  shows  the  reconstructed  pictures  compressed  to  2.0  and  1.5 
bits  per  picture  element  with  no  buffer  constraints;  actual  errors, 
combined  DPCM,  sloped  model,  least  squares  estimates,  after  being  post- 
processed. 

Fig.  6.11  shows  the  original  pictures  after  being  preprocessed. 

Fig.  6.12  shows  the  reconstructed  pictures  compressed  to  2.2  bits  per 
picture  element  with  no  buffer  constraints,  actual  errors,  combined  DPCM, 
sloped  model,  least  squares  estimates.  The  corresponding  postprocessed 
pictures  are  shown  in  Fig.  6.13. 

The  effect  of  preprocessing  or  postprocessing  could  have  been  more 
noticeable  with  noisier  images. 

'I.  Comparisons  between  variable  and  fixed  bit  allocation 

Table  6.1  shows  the  total  RMS  errors  obtained  with  a  fixed  bit  assign¬ 
ment  procedure  for  a  compression  ratio  of  2.0  bits  per  picture  element 
using  the  predictor  associated  with  the  combined  DPCM,  sloped  model, 
least  squares  estimates  as  compared  to  those  obtained  using  a  variable  bit 
assignment  procedure  with  the  same  predictor  for  the  cases  of  non-buffer 
constrained  and  buffer  constrained  bit  allocation  using  the  actual  and 
fitted  error  versus  bit  rate  functions.  We  can  observe  the  improvement 
in  RMS  error  obtained  using  the  variable  bit  assignment  procedure. 


Figure  6.10  Postprocessing  of  the  Reconstructed  Pictures 
Obtained  by  Using  Non-Buffer  Constrained 
Allocation  and  Actual  Errors. 

(a)  First  LANDSAT  Image 

Predictor:  MD,  $M,  LS 
2.0  b/p 
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r  Figure  6.10  (continued) 

V,  Second  LANDSAT  Image 

Predictor:  MD,  SM,  IS 
2.0  b/p. 


Figure  6.10  (continued) 

(c)  First  LANDSAT  Image 
Predictor:  MD,  SM,  LS 
1.5  b/p. 
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Figure  6.10  (continued) 


(d)  Second  LANDSAT  Image 
Predictor:  MD,  SM,  LS 
1.5  b/p. 


Figure  6.11  Preprocessing  of  the  Original  Pictures  Using 
the  Slope  Facet  Model. 

(a)  First  LANDSAT  Image. 


Figure  6.11  (continued) 


(b)  Second  LANOSAT  image. 


Figure  6.12  Reconstructed  Pictures  After  Compressing  the 
Preprocessed  Pictures  of  Figure  6.11  Using 
Non-Buffer  Constrained  Allocation  and  Actual 
Errors . 

Compression  is  2.0  b/p. 

(a)  First  LANDSAT  Image 

Predictor:  MD,  SM,  LS 
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Figure  6.13  Postprocessing  of  the  Pictures  Shown  in 
Figure  6.12. 

(a)  First  LANDSAT  Image 
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Figure  6.13  (continued) 

(b)  Second  IANDSAT  Image. 
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Table  6.1 


Total  RMS  Errors  Obtained  with  a  Fixed  Bit  Assignment  Procedure 


NB 

AE 

BC 

AE 

NB 

FE 

BC 

FE 

FIXED 

FIRST 

LANDSAT 

135.1 

137.6 

138.1 

141.0 

151.8 

SECOND 

LANDSAT 

87.8 

88.0 

90.1 

90.6 

94.2 

Shows  the  total  RMS  errors  obtained  with  a  fixed 
bit  assignment  procedure  for  a  compression  ratio 
of  2.0  bits  per  picture  element  using  the  predic¬ 
tor  associated  with  the  combined  DPCM,  sloped  model, 
least  squares  estimates  as  compared  to  those  ob¬ 
tained  using  a  variable  bit  assignment  procedure 
with  the  same  predictor  for  the  cases  of  non-buffer 
constrained  and  buffer  constrained  bit  allocation 
using  the  actual  and  fitted  error  versus  bit  rate 
functions. 


NB  Non-Buffer  Constraints 
RC  Buffer  Constraints 
AE  Adaptive  Actual  Error  Curves 
FE  Fitted  Error  Curves 
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7.  Conclusions 


The  problem  of  Adaptive  Image  Data  Compression  has  been  discussed. 
Procedures  for  solving  the  causal  non-buffer  constrained  and  buffer 
constrained  bit  allocation  problem  have  been  suggested  and  experimental 
results  for  the  optimal  Non-causal  bit  allocation  procedure  using  a 
number  of  DPCM  compression  techniques  were  presented  for  the  cases  of 
non-buffer  and  buffer  constrained  bit  allocation.  The  performance  of 
the  optimal  non-causal  approach  is  a  least  upper  bound  on  any  causal 
approach  and  provides  us  with  a  way  of  comparing  the  performance  by 
different  causal  procedures. 

Several  questions  have  been  answered;  others  remain  yet  to  be 
answered.  It  has  been  shown  that  the  variable  bit  assignment  scheme 
yields  smaller  RMS  errors  than  those  obtained  with  a  fixed  bit  assignment 
scheme.  It  was  also  experimentally  found  that  the  buffer  constrained 
non-causal  scheme  performs  well  even  for  small  size  buffers  (2.5%  of 
the  minimum  size  that  guarantees  no  constraints).  One  question  to  be 
answered  is  how  small  can  we  make  the  size  of  the  buffer  and  still 
obtain  a  significantly  better  performance  than  that  obtained  using 
fixed  bit  assignment  procedures.  It  is  not  hard  to  see  that  the  smallest 
size  we  can  allow  if  we  are  to  avoid  overflowing  the  buffer  is  that  size 
necessary  for  holding  the  encoded  bits  for  one  block  at  the  given  com¬ 
pression  ratio,  in  which  case  the  bit  allocation  becomes  fixed  for  all 
the  blocks.  It  is  a  matter  then  of  finding  out  an  optimal  trade  off 
between  buffer  size  and  performance. 

It  has  been  found  that  enough  correlation  exists  between  RMS  error 
and  block  variance  to  allow  a  model  to  be  used  to  estimate  the  RMS 
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error  versus  bit  functions  instead  of  computing  the  actual  errors  with 
the  corresponding  savings  in  computational  time.  There  is.  no  significant 
degradation  in  the  quality  observed  in  the  images  that  were  compressed 
using  the  fitting  functions  instead  of  the  actual  ones. 

With  respect  to  the  DPCM  techniques,  the  combined  open  and  closed 
loop  DPCM  performs  significantly  better  than  a  simple  closed  loop  2-D 
DPCM.  There  was  no  observed  significant  difference  in  the  performance 
among  different  predictors  in  the  Combined  method  for  the  level  of  noise 
present  in  the  original  pictures.  It  must  also  be  pointed  out  that  an 
improvement  in  the  initialization  of  the  DPCM  procedure  can  be  carried 
out  to  achieve  better  effective  compression  ratios.  Namely,  the  DPCM 
in  any  block  can  be  initialized  using  the  last  line  in  the  previously 
DPCM  ed  north  block. 
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PART  II 


Adaptive  Coding  of  Images  Using  Transform  Coding  Techniques 

Adaptive  coding  of  images  can  be  done  in  two  general  ways.  The 
first  is  to  perform  adaptive  operations  on  original  image  representations. 
The  second  is  to  perform  adaptive  operations  on  a  transform  representation. 
Part  I  has  described  adaptive  methods  applied  to  DPCM  coding  of  the 
original  image.  Part  II  describes  methods  based  on  a  transform  represen¬ 
tation  of  the  image. 

We  begin  this  part  with  a  description  of  how  the  transform  of  an 
image  is  taken. 
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1.  Transform  Coding  Procedure:  Non-Casual  Case 

An  original  image  is  subdivided  into  blocks.  The  block  size  chosen 
is  10  x  10  and  the  image  size  is  100  x  100,  which  gives  100  blocks  with 
100  pixels  in  each  block.  All  processing  is  done  block  by  block,  i.e., 
from  block  1  to  block  100.  The  blocks  are  numbered  sequentially,  column 
by  column,  as  shown  in  Figure  1.1.  The  input  image  is  real  and  all  arith¬ 
metic  is  floating  point. 

After  a  study  of  Griswold  and  Haralick  [1],  the  Discrete  Cosine 
Transform  was  selected  since  it  had  given  best  results. 

A  block  of  image  data  is  read  in  and  Discrete  Cosine  transformed 
using  the  fast  transform  technique  described  in  [1].  At  the  same  time 
the  mean  and  variance  of  each  pixel  position  in  a  block  of  the  transformed 
image  is  updated.  This  yields  two  10  x  10  arrays  containing  mean  and 
variance  information,  e.g.,  after  all  100  blocks  have  been  processed  the 
(1,1)  position  in  the  mean  array  will  have  the  mean  of  all  the  pixels  in 
the  (1,1)  position  in  each  block  and  is  similar  for  the  variance  array. 

This  information  will  be  later  used  by  the  Max  quantizer.  The  pixels  in 
the  transformed  block  shall  be  referred  to  as  components  since  they  corre¬ 
spond  to  frequency  components  in  a  general  transformed  signal.  Thus  we 
have  one  hundred  components  per  block. 

Next,  each  component  in  a  block  is  quantized  using  six  bits  (the 
upper  limit  of  the  max  quantizer  program).  Simultaneous  with  the  quanti¬ 
zation,  we  calculate  the  error  vs.  component  curve,  i.e.,  what  is  the  error 
if  only  one  component  is  transmitted  and  the  remainder  are  assumed  zero; 
what  is  the  error  if  two  components  are  transmitted,  etc.?  This  segment 
of  "filtered  images"  is  shown  in  Figure  1.2. 
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Truncated  Transform  Images  of  a  Single  Block 


The  components  are  taken  in  a  specific  columnwise,  increasing-frequency 
order  as  shown  in  Figure  1.2.  The  first  column  continues  to  the  top  of  the 
second  column,  etc. 

So  after  this  processing,  we  end  up  with  100  transformed  and  quantized 
blocks  and  corresponding  to  each  of  these  an  error  vs.  component  curve. 

Since  each  component  corresponds  to  six  bits,  the  error  vs.  component 
curve  can  be  alternatively  represented  as  an  error  vs.  bits  curve  as  shown 
in  Figure  1.3.  The  error  here  is  defined  to  be  RMS  error. 

Since  storage  of  each  of  these  error  vs.  bits  curves  requires  a  100  x 
100  matrix,  it  is  desirable  to  find  a  simpler  representation.  One  such 
representation  is  a  polynomial.  To  obtain  experimental  data  a  sixth  order 
polynomial  was  fitted  to  each  of  the  curves,  the  "raw"  one  and  the  "fitted" 
one.  (See  Data  Set  3). 
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2. 


Allocation  of  Bits 


Given  the  transformed  images  and  the  error  vs.  bits  curves  described 
earlier,  we  are  ready  to  proceed  with  bit  allocation.  This  can  be  done 
for  transformed  images  in  each  of  the  four  basic  ways  described  in  Part  I, 
namely: 

(1)  Non-Causal  Optimal  Allocation 

(2)  Non-Causal  Optimal  Allocation  with  Buffer  Constraints 

(3)  Casual  Adaptive  Allocation  with  Buffer  Constraints 

(4)  Non  Adaptive  Allocation 

Allocation  methods  (1)  and  (2)  can  be  computed  using  the  same  soft¬ 
ware  as  was  used  for  Part  I.  These  are  described  in  Appendices  A. 2  and 
A. 3.  Only  one  additional  item  of  information  is  required  in  this  transformed 
case  which  is  the  compression  ratio  desired.  It  determines  the  total 
number  of  bits  to  be  allocated  to  the  entire  frame.  (This  number  is 
defined  as  TTOTAL  in  the  computer  program.) 

In  concept  we  are  now  ready  to  proceed  and  obtain  the  computed  optimal 
bit  allocations  for  (1)  and  (2).  Unfortunately,  our  storage  requirement 
is  much  greater  than  is  required  for  the  DPCM  case  since  an  array  of 
dimensions  TTOTAL  x  No.  of  Blocks  is  necessary.  To  solve  this  impractical 
storage  requirement  on  the  PDP-15,  the  image  was  divided  into  four  equal 
subparts  as  shown  in  Figure  2.1 

TTOTAL  was  equally  allocated  to  each  of  the  four  parts,  and  similarly 
for  the  buffer.  Now  each  quarter  of  the  original  (  100  x  100)  picture  can 
be  processed  separately  and  the  final  bit  allocations  for  the  entire  image 
are  those  calculated  on  the  basis  of  four-part  subpartitions.  This  is 
obviously  not  optimal  with  respect  to  the  whole  image  but  is  very  close  when 
the  number  of  partitions  is  small,  e.g.,  four. 
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Thus  each  block  now  has  an  optimum  number  of  bits  (components) 
allocated  to  it.  This  optimum  number  of  components  is  retained  and  the 
others  are  replaced  by  zero. 

The  output  image  can  now  be  obtained  by  taking  the  inverse  discrete 
cosine  transform  of  each  block  as  described  in  [1], 

Summarizing,  all  original  images  (100  x  100)  were  quantized  at  8 
bits/pixel.  Our  compression  then  consists  of  two  stages: 

(1)  Using  the  Max  quantizer  to  quantize  each  prixel  using  6  bits 
followed  by 

(2)  A  non-casual  optimal  adaptive  allocation  using  dynamic  program¬ 
ming  both  with  and  without  buffer  constraints. 

The  entire  procedure  is  summarized  in  the  flowchart  on  the  following 

page. 

EXPERIMENTS  PERFORMED 

The  following  experiments  were  selected  to  test  for  potential 
compression  improvements  and  to  compare  with  non-adaptive  results: 

(1)  Adaptive  encoding  with  or  without  a  buffer  constraint.  When  a 
buffer  constraint  was  included  it  was  taken  to  be  10%  of  TTOTAL. 

(2)  Output  image  post  processing  (smoothing) .  The  slope  faceted 
algorithm  (see  Part  I)  was  used  to  determine  available  improvements  from 
smoothing  the  output  to  remove  blur  and  computational  discontinuities 
introduced  by  the  optimization  procedure. 

(3)  Variable  Compression  Ratios:  Two  different  compression  ratios 
were  selected,  8:1  and  16:1. 

(4)  Representation  of  the  error  vs.  bits  curve:  Use  of  both  the 
"raw"  and  "fitted"  error  vs.  components  curve  was  selected  to  determine 
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if  reduced  representation  (storage)  of  the  image  complexity  could  be 
gained  without  significant  degradation  in  overall  quality. 

The  following  tree  diagram  summarizes  the  experiments  performed  using 
all  the  above  options. 


This  gives  a  total  of  16  images  for  original  image.  Three  original  images 
were  used;  they  will  be  called  KCALIF,  CCALIF,  and  LADY3. 

In  addition  to  the  above  adaptive  experiments,  two  images,  at  compres 
sion  ratios  8:1,  16:1,  were  generated  using  equal  allocation  of  bits  to 
each  block.  These  provide  reference  (non-adaptive)  images  for  comparison 
with  each  of  the  adaptive  results . 

Thus  we  have  a  total  of  18  output  images  for  original  input  image. 


3. 


Results:  Non-Causal  Adaptive  Encoding 


Two  different  criteria  are  used  to  judge  quality.  These  are: 

(1)  RMS  error. 

(2)  Visual  quality. 

Tables  3.1,  3.2,  and  3.3  give  the  RMS  error  between  the  original  and  the 
output  for  the  three  different  images  KCALIF,  CCALIF,  and  LADY3  espectively. 

Certain  representative  pictures  have  been  printed  to  provide  the  reader 
with  his  own  reference  for  (2). 

COMMENTS  &  CONCLUSIONS 

(1)  First,  as  is  obvious,  the  images  are  better,  both  RMS  error 
and  visual  qualitywise  for  8:1  compression  than  for  16:1  compression. 

This  can  be  seen  visually  by  comparing  KCALIF  RFA  and  KCALIF  RCA  and 
CCALIF  RCA  and  CCALIF  RFA.  On  an  average  there  is  a  32.8%  increase  in 
RMS  error  as  we  go  from  8:1  to  16:1  for  KCALIF  and  42.1%  increase  for 
CCALIF  and  a  75.2%  increase  for  the  LADY 3  image. 

(2)  Output  processing  using  the  slope  facet  doesn't  help  much,  as 

can  be  seen  visually  by  comparing  KCALIF  RFA  and  KCALIO  RFA.  The  change 
in  RMS  error  is  of  the  order  of  10  . 

(3)  The  dynamic  programming  version  including  buffer  constraint 
(Appendix  A. 3)  performs  very  well.  There  is  no  significant  visual  degrada¬ 
tion.  This  is  borne  out  by  comparing  visually: 

(a)  LADY 3  RFA  and  LADY 3  RFB . 

(b)  KCALIF  RCA  and  KCALIF  RCB. 

(c)  CCALIF  RCA  and  CCALIF  RCB. 

For  KCALIF  and  CCALIF  the  change  In  the  RMS  is  of  the  order  of  10  1 
and  slightly  higher  for  LADY3,  but  this  small  increase  in  RMS  error  is 
borne  out  visually.  Thus  buffer  constraint  is  no  impediment  to  this 
dynamic  programming  algorithm. 
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■  ~  “  TYPE  OF  ERROR  CURVE 

COMPRESSION  BUFFER  OUTPUT  USED_  raw(r)  OR  RMS  NUMBER  OF  PIXELS  OTHER  DESCRIPTION 


Table  3.1  Non-Causal  KCALIF 


(4)  The  "fitted"  error  vs.  bits  curves  caused  a  slight  defocusing 
of  the  image.  This  can  be  seen  best  by  comparing  visually  LADY3  RFA  and 
LADY3  FFA.  The  defocusing  is  also  accompanied  by  a  16%  increase  in  RMS 
error.  This  effect  is  not  as  pronounced  for  KCALIF  and  CCALIF  images  in 
either  visual  or  RMS  error  measures.  The  LADY3  image  is  more  complex  and, 
hence,  is  more  sensitive  to  detail  omitted  in  this  approximation.  It  is 
important  to  point  out  the  storage  saving  involved  here,  however.  When 

a  6th  order  polynomial  (characterized  by  7  coefficients)  is  used  instead 
of  a  100  point  error  vs.  bits  curve  for  each  block,  we  obtain  a  saving 
of  approximately  190  out  of  200  storage  locations. 

Clearly  there  is  an  important  trade-off  here.  The  decision  as  to 
whether  to  use  the  "raw"  or  "fitted"  curves  depends  on  how  complex  the 
images  being  transmitted  are. 

(5)  Finally,  all  the  "adaptive"  images  are  significantly  better, 
both  RMS  errorvise  and  visually  than  the  "non-adaptive"  equal  allocation 
images.  This  can  be  seen  by  comparing  LADE3  RET  (8:1)  and  LADF3  RET  (16:1) 
to  any  of  the  adaptive  images  like  LADY3  RFA  and  LADY3  RFB.  In  fact,  the 
LADF3  RET  image  is  badly  marred  and  degraded. 

(6)  One  characteristic  that  is  very  apparent  throughout  is  the 
"blockiness"  evident  in  every  image.  This  is  due  completely  to  the  parti¬ 
cular  "component  selection"  scheme  used,  i.e.,  columnwise  starting  from  the 
leftmost  column. 

This  problem  can  be  rectified  by  using  the  following  scheme.  Let  (i,j) 

2  2 

be  the  coordinates  of  a  pixel  in  a  block.  Calculate  (i  +  j  )  and 
accordingly  arrange  the  components  in  ascending  order  and  then  select. 

This  amounts  to  choosing  the  components  diagonally  as  shown  on  the  next  page 
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We  start  at  the  topmost  diagonal  and  work  our  way  downwards.  This  scheme 
weights  equally  all  components  at  the  same  frequency.  It  also  assumes  a 
zero-mean  image.  Therefore,  before  taking  the  transform  of  the  image  one 
must  subtract  the  mean  and  add  it  back  at  the  end  of  the  process. 

Another  obvious  way  to  reduce  the  "blockiness"  is  to  reduce  the 
block  size  from  (10  x  10)  to  0  x  5)  or  (7  x  7) . 

(7)  Instead  of  quantizing  each  pixel  by  6  bits,  4  bits  or  5  bits 
could  be  used  together  with  further  increases  in  the  compression  ratio. 

(8)  Three  graphs  P-1,  P-2,  P-3  have  been  appended.  These  are 
graphs  of  bits  assigned  by  dynamic  programming  vs.  block  number.  This 
clearly  illustrates  the  adaptive  nature  of  the  algorithm.  Complex  blocks 
are  assigned  more  bits  than  less  complex  ones. 
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4.  Transform  Coding:  Causal  Case 

4.1  ARMA  Model  of  Complexity  of  Subimages 

We  can,  by  dividing  an  image  into  blocks,  improve  the  fidelity  with 
a  given  number  of  bits  (or  bandwidths) .  We  can  do  this  by  allocating  more 
bits  to  where  they  are  needed  the  most  -  the  highest  complexity  blocks  - 
and  fewer  bits  to  where  they  are  needed  less.  Further,  we  can  ask  whether 
the  complexity  of  a  blo«'k  itself  is  predictable  from  the  complexities  of 
neighboring  blocks.  This  could  occur,  for  example,  in  "busy"  areas  such 
as  where  edges  are  connected  to  each  other  or  in  smooth  areas  where  back¬ 
ground  blocks  are  connected.  If  the  complexity  of  sub image  blocks  is 
predictable,  then  further  compression  can  be  achieved  by  finding  a  model 
for  the  block  complexities,  considered  as  a  stochastic  series.  Then  the 
complexities  of  future  blocks  to  be  transmitted  can  be  estimated  from  those 
already  transmitted  and  the  allocation  of  bits  to  the  next  block  to  be 
transmitted  can  be  minimized  based  on  not  only  its  own  complexity  but  the 
complexities  of  the  "recent"  blocks. 

The  initial  model  for  the  rate  distortion  was  to  describe  each 
block's  error  vs.  bits  as  a  series,  and  to  find  the  statistical  properties 
of  the  series  that  allow  it  to  be  predicted.  Box  and  Jenkins  have  done 
much  analysis  of  time  series,  and  their  techniques  were  used  to  obtain 
the  model  of  the  series  of  block  complexities. 

For  this  analysis,  no  assumptions  were  made,  for  example,  as  to  the 
stations rity  or  non-stationarity  of  the  series.  We  tried  fitting  models  of 
different  types  and  orders  to  the  series,  and  used  the  statistics  of  the 
models  compared  to  the  original  series  to  measure  the  goodness  of  fit 
of  the  models. 
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4.2  Choosing  an  ARMA  Model 

Each  block  is  characterised  by  an  error  vs.  bits  curve.  From  these 
error  curves  we  form  error  matrices: 


{ e^  } }  { e^  })••*{  } 

1  °2  n 


where  {e,  }  is  the  two-dimensional  error  matrix  created  by  finding  the 

bi 


error  at  a  fixed  number  of  bits  =  b^.  Now  our  goal  is  to  find  an  ARMA 
model  for  each  of  these  error  matrices.  For  this  we  used  the  Box  &  Jenkins 
time  series  package  on  the  Honeywell  66/60.  To  use  this  we  need  to  connect 
the  two-dimensional  arrays  to  one-dimensional  arrays  by  concatenating 
the  columns  as  shown  below. 


-C|— ,-C2— , 


Step  1: 

The  first  step  in  performing  an  identification  of  the  type  of  time 
series  which  most  closely  represents  the  data  is  to  compute  the  autocorre¬ 
lation  and  partial  autocorrelation  of  the  data  itself.  In  the  present 
application  the  data  is  the  series  of  error  values  at  a  single  bit  alloca¬ 
tion  value.  The  sequence  of  error  values  arises  from  the  sequence  of 
blocks. 


Once  these  calculations  have  been  completed,  the  autocorrelation  and 
partial  autocorrelation  data  are  plotted  to  make  patterns  easily  visible. 


If  no  patterns  are  present,  then  the  original  data  may  not  be  a 
stationary  stochastic  process  and  it  is  necessary  to  difference  the 
original  data  to  remove  the  nonstationary  part.  Eventually  after  one  or 
more  differencing  calculation  stages  almost  all  practical  process  data 
becomes  stationary  and  corresponding  autocorrelation  and  partial  auto¬ 
correlation  data  sets,  when  graphed,  exhibit  certain  patterns. 

Table  4  summarizes  the  general  characteristics  exhibited  by  two 
graphs  for  several  combinations  of  time  series  classes. 


CLASS  OF  PROCESSES 

AUTOCORRELATIONS 

PARTIAL  AUTOCORRELATIONS 

Moving  Average  (MA) 

Spikes  at  Lags  1 
through  Q,  then  cut 
off. 

Tail  Off 

Auto  Regressive  (AR) 

Tail  Off 

Spikes  at  Lags  1  through 
P,  then  cut  off. 

Mixed  Auto  Regressive 
Moving  Average  (ARMA) 

Irregular  Pattern  at 
Lags  1  through  Q, 
then  tail  off 

Tail  Off 

Table  4.1 

To  illustrate  the  identification  of  process  class  some  computer 
printout  (PRINTOUT  1)  corresponding  to  { }  for  KCALIF  image  has  been 
appended.  This  printout  presents  IDEN  runs  for  the: 

(1)  raw  data 

(2)  first  difference. 

(3)  2nd  difference. 

(4)  3rd  difference. 

(5)  4th  difference. 

We  note  that  more  structure  is  observed  in  the  data  as  higher  orders 
of  differencing  of  the  data  are  taken,  but  at  the  same  time  the  raw  data 


itself  is  not  without  identifiable  structure.  By  following  the  guidelines 

of  Table  4  and  some  intuition  we  conclude  that  a  reasonable  hypothesis 

for  the  data  is  that  it  is  an  AR1  process. 

In  fact,  this  class  was  found  to  be  the  best  class  choice  for  all 

{e  }  arrays  for  all  three  images.  Further,  no  significant  periodicity 
i 

was  observed  for  any  of  the  {e,  }s  for  any  of  the  images. 

1 

Step  2: 

The  next  step  is  to  estimate  the  parameters  of  the  AR1  process 
efficiently.  This  is  accomplished  by  using  maximum  likelihood  parameter 
estimation  methods.  The  theory  behind  this  is  explained  in  detail  in 
the  book  by  Box  &  Jenkins  [2]  and  need  not  be  repeated  here  since  these 
methods  are  widely  known  and  utilized. 

Step  3: 

Having  a  set  of  parameter  estimates,  the  next  step  is  to  perform 
tests  to  verify  their  quality.  The  Box  &  Jenkins  software  package  pro¬ 
vides  the  computational  tools  required  to  run  several  diagnostic  checks. 
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4.3  Verification  of  an  Identified  ARMA  Model  for  a  Process 

4.3.1  Diagnostic  Tests. 

One  way  of  viewing  the  process  of  modeling  time  series  is  an 
attempt  to  find  a  transformation  that  reduces  the  observed  data  to  random 
noise.  If  we  have  succeeded  in  this,  we  would  expect  to  find  that  the 
residuals  have  the  properties  of  random  numbers  -  in  particular  not 
serially  correlated. 

a.  A  first  check  is,  therefore,  sample  autocorrelations  of  the 
residuals.  These  autocorrelations  should  be  significantly  close  to 
zero  (independent  of  the  number  oi  lag  steps). 

b.  Another  important  property  of  the  residuals  is  that  they  be 
correlated  in  general  with  the  current  value  of  the  observed  data  and 
some  future  values  (depending  on  the  order  of  the  process)  but  not  past- 
values.  So  as  an  additional  check  in  the  model,  corresponding  sample 
correlations  between  residuals  and  the  observed  data  are  computed. 

c.  Finally,  it  is  often  useful  to  simply  inspect  a  graph  of  the 
residuals  for  evidence  of  model  inadequacy.  They  should  show  no  evidence 
of  a  particular  pattern  or  trend  and  should  be  close  to  zero. 

Other  diagnostic  tests  discussed  in  Box  &  Jenkins  [2]  include: 

d.  The  Dubin  Watson  statistic  should  be  close  to  2.0.  A  value 
between  1.8  -  2.2  is  generally  satisfactory. 

e.  Number  of  negative  residuals  should  be  approximately  equal  to 
the  number  of  positive  residuals. 

f.  The  number  of  runs-R  should  not  be  too  large  or  too  small  compared 
to  the  data  dimension. 

g.  The  z-statistic  for  the  RMS  Test  should  be  between  -1.96  and  1.96 


for  95%  confidence. 


h.  The  power  spectrum  of  white  noise  is  a  constant.  Consequently, 
the  cummulative  spectrum  for  white  noise 

P(f)  =/*  p(g)dg 

J  o 

plotted  against  f  is  a  straight  line  running  from  (0,1)  to  (0.5,1).  For 
a  white  noise  series,  the 'hummulative  normalized  periodogram"  should 
be  scattered  about  a  straight  line  joining  the  points  (0,1)  and  (0.5,0). 
Moreover,  the  periodogram  should  be  within  the  80%  lower  and  upper 
Kolmogorov-Smirnof f  limits  as  shown  in  Figure  4.1. 

i.  Estimates  of  the  variance  of  the  residuals  provide  another  tool 
for  discriminating  among  alternative  models  for  a  given  series. 

To  illustrate  the  above  computations,  computer  PRINTOUT  2  gives 
the  IDEN  and  Estimation  (ESTI)  runs  for  (e^Q?  of  the  KCALIF  image.  All 
diagnostic  checks  are  made  and  we  conclude  that  the  following  AR(1)  model 
e(n)  =  .3237  e(n-l)  +  88.1869 
for  the  se9uence  valid. 

The  constant  term  (88.1869)  adjusts  for  the  nonzero  mean  of  the 
working  series. 

4.3.2  Model  Overfitting. 

If  our  model  is  AR(1),  we  may  ask  if  AR(2)  might  be  a  more  appropriate 
model.  Or  should  a  moving  average  term  be  added  to  the  model  to  make  it 
an  ARMA  Model?  The  most  obvious  test  of  such  hypotheses  is  by  overfitting 

and  testing  the  hypothesis  that  the  added  parameter  is  equal  to  zero. 

Overfitting  tests  were  carrried  out  for  the  {e^}  sequence  of  the 

KCALIF  image. 

An  attempt  was  made  to  fit  an  AR(2)  process  to  what  was  previously 
identified  as  an  AR(1)  process,  that  is  to  fit  a  model  of  the  form 
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P(f) 


Upper  80%  Kolmogorov-Smirnoff  Limits 

'\  \ 

Normalized  Cumulative  Periodogram 

\ 

\  \  \  Lower  80% 

Kolmogorov-Smirnoff 
Limits 


\  v  \ 
\  — 


Figure  4.1  Cumulative  Normalized  Periodogram 
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e(n)  =  a^e(n-l)  +  a2e(n-2) 

to  the  process  previously  hypothesized  to  be  of  the  form 
e(n)  =  a^e(n-l). 

The  parameter  values  obtained  were 

a^  =  .4359  with  a  standard  error  =  .1011 

a2  =  .0108  with  a  standard  error  =  .1014. 

Note  that  not  only  is  a2<<a1  but  the  standard  error  for  a2  is  much 

larger  than  the  estimate  of  a2  itself!  This  proves  that  a2  is  insignificant. 

Therefore,  the  process  is  AR(1)  as  previously  hypothesized. 

An  attempt  was  also  made  to  fit  an  AR(1)  +  MA(1)  model  to  the 

above  data.  That  is,  a  model  of  the  form 

e(n)  =  a^e(n-l)  +  a2u(n-l) 

(where  u(n-l)  is  the  noise  term) 

was  hypothesized  and  fitted  to  the  data.  Resulting  parameter  estimates  were 
a^  =  .4675  with  standard  error  =  .2044 

a2  *  .0-31  with  standard  error  =  .2298 

Once  again  a2<<a1  and  a2  is  much  greater  than  the  estimate  of  a2  itself, 
showing  that  a2  is  insignificant.  We  again  conclude  that  the  process  is 
AR(1) . 

4.4  Causal  Bit  Allocation 

Once  the  model  for  the  rate  distortion  of  blocks  is  known,  it  can 
be  used  in  a  predictor  for  causal  bit  allocation  to  blocks.  In  causal 
allocation,  only  the  rate  distortions  of  the  past  blocks  (those  already 
transmitted)  are  known;  those  of  the  future  blocks  are  estimated  so  that 
the  best  allocation  of  bits  to  the  current  block  relative  to  all  the 
other  blocks  can  be  made.  The  better  the  estimate,  the  fewer  bits  will 
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be  wasted  (that  should  be  used  on  future  blocks).  What  is  wanted  is  a 
measure  of  the  relative  information  content  of  the  current  block,  com  ared 
to  all  past  and  future  blocks. 

Knowing  the  correlations  between  blocks  as  a  function  of  the  distance 
between  them,  fut  ire  blocks  can  be  predicted  with  minimum  error.  Using 
the  model  developed  from  the  ARMA  analysis,  we  scan  through  the  blocks 
in  a  way  such  that  the  blocks  form  a  series,  each  correlated  with  the 
previous  one: 


We  scan  down  one  column  of  the  image  and  up  the  next  column.  Since 
the  correlation  decreases  with  distance  (blocks  of  a  large  distance  from 
other  blocks  have  statistically  independent  rate  distortions  from  them), 
we  include  only  a  small  number  of  blocks  in  the  allocation,  estimating  the 
rest  by  the  mean  rate  distortion  of  all  past  blocks. 

We  take  a  sample  of  five  blocks  at  a  time,  including  two  past  blocks 
with  known  rate  distortion,  and  three  future  blocks  with  estimated  rate 


distortion. 
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We  assume  that  this  is  the  farthest  we  can  estimate  by  correlation 
models.  Having  these  estimates  of  the  rate  distortions  of  members  in  a 
group  of  blocks,  we  compare  the  bits  needed  for  the  group  to  the  bits 
needed  for  all  other  blocks,  under  some  constraint  of  total  bits.  As 
mentioned,  the  other  blocks'  rate  distortion  is  estimated  by  the  mean 
rate  distortion  of  all  known  blocks.  We  then  assign  to  the  group  of 
blocks  a  total  number  of  bits,  to  be  allocated  among  them  by  a  technique 
depending  on  their  specific  cost  vs.  error  curves  (dynamic  programming). 
Allocation  is  then  made  for  the  next  group,  an  overlapping  one  with  one  new 
known  to  one  new  estimated  block;  e.g.  12345  then  23456. 
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The  actual  measure  of  information  content  of  the  group  of  blocks 


relative  to  all  other  blocks  is: 


TOTAL (ft) 


N 

M 


|  +  w 


600  /  ea(b)  -  i(b)\ 

b4  \  A 


T0TAL(i.)  is  the  number  of  bits  allocated  to  a  particular  group  of 
five  blocks  (£.  identifies  which  group  in  the  series  of  blocks). 

5  is  the  total  number  of  bits  for  the  image  divided  by  the  number 

M 

of  five-block  groups;  i.e.,  the  average  number  of  bits  per  group  of  five 
blocks. 

(e^(b)  -  e(b))  is  the  difference  of  the  error  in  the  current  group  of 
blocks  at  a  fixed  number  of  bits  (averaged  over  all  blocks  in  the  group) 
minus  the  average  error  at  that  number  of  bits  overall  known  and  estimated 
blocks. 

(  b)  is  the  standard  deviation  of  error  at  «hat  number  of  bits  over 
all  known  and  estimated  blocks. 

/e^b)  -  i(b)\ 

So  ( - I  is  the  difference,  at  a  fixed  bits  value,  between 

\  o(b)  ) 

the  current  blocks’  errors  and  the  average  error  over  all  previous  and 
estimated  blocks,  relative  to  the  standard  deviation  from  the  average 
error  over  all  past  and  estimated  blocks.  This  measure  of  deviation  between 
the  local  blocks'  rate  distortion,  and  all  other  blocks'  rate  distortion, 
is  summed  over  all  bits  values.  This  gives  an  indication  of  the  relative 
difference  of  rate  distortion  over  the  whole  curve,  as  shown  on  the 
following  page. 
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The  "w"  in  the  equation  is  a  weighting  factor  to  allow  adjustment 
of  the  range  of  allocations  among  local  groups  of  blocks.  The  higher 

N 

w  is,  the  more  TOTAL(Jl)  can  differ  from  the  average  group  allocation  r;. 

M 

If  group  I  has  an  average  error  curve  exactly  matching  that  of  the  average 

error  curve  for  all  past  and  estimated  blocks,  (e^(b)  -  e(b))  is  0,  so 
N 

TOTAL(i)  is  -.  If  the  local  group  of  blocks  has  a  higher  information 
content  than  the  average  group  of  blocks  (as  measured  by  the  difference 
of  error  vs.  bits  curves,  as  in  Figure  1.2,  more  than  the  average  number 
of  bits  is  allocated  to  that  group  of  blocks. 

As  more  of  the  image  is  known,  the  estimate  of  the  average  error  curve 
over  all  other  blocks  than  the  local  group  of  blocks  becomes  more  accurate. 
As  this  happens,  the  relative  information  of  a  current  group  to  the  rest 
of  the  image  is  better  measured,  so  the  adaptive  allocation  wastes  fewer 
bits.  But  this  kind  of  causal  technique  allows  the  best  estimate  of  rela¬ 
tive  information  of  blocks  at  any  point  in  the  scanning  of  blocks,  when  any 
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fraction  of  the  image  is  known  and  the  rest  unknown.  Our  optimizing 
of  allocation  over  all  such  estimates  is  based  on  the  image  models 
developed  from  ASHA  analysis. 

4.5  Results  of  Causal  Encoding  Using  ARMA  Models  for  Error  Prediction 

The  procedure  described  in  the  previous  section  was  applied  to  all 

the  {e,  }  arrays  of  the  three  different  images  KCALIF,  CCALIF,  and  LADY3. 
bi 

The  resulting  error  models  obtained  are: 

(b=standard  deviation  of  the  residuals) 

For  KCALIF: 

Model  for  {e.^} 

e(n)  =  .4359  e(n-l)  +  122.0354  0=100.5122 

Model  for  {e^g} 

e(n)  =  .3237  e(n-l)  +  88.1869  0=68.7268 

Model  for  {e^g} 

e(n)  =  .1406  e(n-l)  +  52.52  0=4 0.8996 

We  observe  that  as  b  increases  from  10  to  70  the  dependence  of  e(n)  on 
e(n-l)  decreases. 

For  CCALIF: 

Model  for  { e^g } 

e(n)  =  .3229  e(n-l)  +  127.369  0=64.9558 

Model  for  ^ e 20 ^ 

e(n)  =  .3397  e(n-l)  +  89.7926  0=52.389 

Model  for  {e^g} 

e(n)  »  .1934  e(n-l)  +  79.623  0=43.1174 
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Model  for  {e^g} 

e(n)  =  .1914  e(n-l)  +  62.5809  o =39.182 

Model  for  {e^g} 

e(n)  =  .03  e(n-l)  +  43.018  0=33.1787 


For  LADY3: 


Model  for  {e^g} 

e(n)  =  .5433  e(n-l)  +  61.2978  a=70.7308 

Model  for  {e^g} 

e(n)  =  .4529  e(n-l)  +  51.6741  a=  51.4638 

Model  for  {e,~} 

40 

e(n)  =  .3664  e(n-l)  +  48.2031  a=  45.3396 

Model  for  { e^g } 

e(n)  =  .0893  e(n-l)  +  43.1763  o=  34.449 


These  models  were  successfully  used  in  the  CAUSAL  transform  coding  program 


4.6  Exponential  Model  of  Complexity  of  Subimages 

Another  approach  to  modeling  the  error  vs.  bit  curves  is  to  note  the 
general  form  of  these  graphs.  They  appear  to  have  a  strong  decaying  expo¬ 
nential  form,  therefore  a  decaying  exponential  representation 
e(b)  =  «e®k  where  b=bits 

is  postulated.  We  attempt  to  use  the  least  squares  technique  to  find 
estimates  for  <*  and  6  for  each  block.  Then  we  use  the  series  of  these 
estimates  for  n  and  8  as  raw  data  in  the  Box  &  Jenkins  procedure  to  obtain 
ARMA  models  for  these  parameters  of  the  exponentials  fitted  to  the  original 
error  vs.  bits  data. 
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To  obtain  a  least-squares  estimate  for  a  and  B,  we  minimize 


100 

S  =  I  (P  -  oeBb1)2 
i=l  1 

But  this  gives  rise  to  undesirable  nonlinear  equations.  Therefore  we 
reformulated  first  taking  lag  on  both  sides  giving 
In  e  =  lna  +  $b 
let  In  e  =  y  and  a^  =  lna. 

y  =  +  gb 

So  now  minimize: 

100 

S1  =  (y.  -  «  -  Bb  )2 

i=l 

Table  4.4  lists  the  values  of  a,  B,  and  the  rms  error  for  the  blocks 
in  quadrant  of  the  LADY3  image  which  are  typical. 

Results: 

Data  Set  1  lists  the  values  of  a,  8  and  the  runs  error  for  all  blocks 
for  the  three  images  KCALIF,  CCALIF,  and  LADY 3. 

The  a  estimate  sequence  was  easily  modeled  as  an  AR(1)  process 
but  the  B  sequence  could  not  be  successfully  modelled  as  a  time  series. 

It  apparently  does  not  represent  an  independent  parameter  in  the  exponen¬ 
tial  representation  not  adequately  accounted  for  by  the  a  coefficient. 

Without  6,  the  exponential  representation  has  only  one  parameter, 
a,  which  is  not  sufficiently  flexible  to  make  the  exponential  a  practical 
representation. 

4.7  Power  Series  Model  of  Complexity  of  Subimage 

As  an  alternative  parametric  representation  of  the  error  vs.  bits 


data  a  6th  order  polynomial  of  the  form 

e(b)  =  Oq  +  a^b  +  +  a^b^  +  a^b^  +  a^b^  +  a^b^ 

was  considered.  Following  fitting  of  a  polynomial  of  the  above  form 
to  the  data,  the  parameters  Oq,  a^,  —  are  each  considered  as  series 
and  modeled  as  an  ARMA  process. 

Table  4.5  gives  the  rms  error  between  the  polynomial  fit  and  the 
raw  data  for  the  same  set  of  LADY3  blocks  used  to  generate  Table  4.3. 
These  are  seen  to  be  significantly  less  than  those  for  the  decaying  ex¬ 
ponential.  This  reflects  the  higher  dimensionality  of  the  polynomial 
model  which  should  made  the  a^'s  easier  to  model. 

AR(1)  models  were  found  to  be  the  best  ones.  Limitations  in  project 
funds  and  time  prevented  a  more  complete  analysis  of  this  complexity 
representation.  However,  it  is  a  method  which  appears  to  be  feasible  and 
it  is  an  efficient  method  from  its  low  storage  requirements  and  should  be 
studied  further. 

4.8  Results  and  Conclusions:  Causal  Adaptive  Encoding  in  the  Transform 

Domain 

A  series  of  experiments  designed  to  evaluate  the  causal  allocation 
system:  modeling,  prediction  and  allocation,  is  diagrammed  below.  The 
combinations  of  conditions  are  similar  to  those  for  the  non-causal  case. 
The  main  difference  is  that  all  allocations  of  bits  were  accomplished 
using  the  causal  bit  allocation  method  described  in  section  4.4  rather 
than  the  overall  non-causal  optimal  methods  of  Part  1. 
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Causal  Transform  Coding 
Experiments  Performed 


Compression  of  8:1 


Compression  of  16:1 


Buffer  Constrained 
(10%  of  Total) 


No  Buffer 
Constraint 


Output  Processed  Output  Not 

(Slope  Forcet)  Processed 


There  are  a  total  of  eight  output  linages  per  input  image.  These  experi¬ 
ments  were  performed  for  two  images,  CCALIF  and  LADY 3. 

Results  &  Conclusions: 

Tables  4.2  and  4.3  give  the  RMS  error  between  the  original  image  and 
the  various  output  images. 

(1)  Once  again,  as  expected,  the  8:1  compression  does  better 
than  16:1.  This  can  be  seen  visually  by  comparing  LADYB  RFA  and  LADYB 
RCA.  This  is  also  borne  out  by  the  RMS  error  table. 

(2)  Both  RMS  errorwise  and  visually  the  causal  images  are  nearly 
as  good  as  the  non-causal  ones,  e.g.,  compare  LADYB  RFA  and  LADY3  RFA 
and  note  their  close  similarity. 
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Compression  Buffer  Output  RMS  Points  that  Any  other 

Ratio  Constrained  Processed  error  differ  out  description? 

8:1  or  16:1  Y  or  N?  Y  or  N?  of  10,000 


Table  4.2  RSM  Error:  Input-Output  Images  CCALIF 


Table  4.4  Parameters  for  Exponential  Fit 


Block  f 

a 

6 

RMS  Error 

1 

0.111 

-0.611 

0.821 

2 

0.122 

-0.433 

0.790 

3 

0.077 

(Ti 

• 

o 

1 

0.905 

4 

0.082 

-0.827 

0.897 

5 

0.101 

-0.516 

0.846 

6 

0.114 

-0.609 

0.826 

7 

0.096 

-0.716 

0.859 

8 

0.422 

-3.930 

0.401 

9 

0.548 

-2823 

0.541 

10 

0.463 

-2.128 

0.906 

1 1 

0.428 

-4.135 

0.315 

12 

0.398 

-2.629 

0.474 

13 

0.296 

-2.288 

0.147 

14 

0.398 

-2.532 

0.216 

15 

0.322 

-1.804 

0.244 

16 

0.249 

-3.361 

0.380 

17 

0.387 

-4.956 

0.385 

18 

0.152 

-2.207 

0.726 

19 

0.312 

-1.161 

0.453 

20 

0.160 

-2.381 

0.651 

21 

0.133 

-1 .246 

0.269 

22 

0.262 

-3.945 

0.528 

23 

0.153 

-0.718 

0.700 

24 

-.391 

-5.280 

0.232 

25 

0.349 

-4.140 

0.297 

Table  4.5  Parameters  for  Polynomial  Fit 


Block  #  , _ RMS  Error 


1 

0.255 

2 

0.207 

3 

0.255 

4 

0.256 

5 

0.218 

6 

0.254 

7 

0.260 

8 

0.277 

9 

0.210 

10 

0.290 

11 

0.155 

12 

0.201 

13 

0.086 

14 

0.150 

15 

0.115 

16 

0.121 

17 

0.214 

18 

0.209 

19 

0.119 

20 

0.237 

21 

0.073 

22 

0.272 

23 

0.282 

24 

0.179 

25 

0.219 

(3)  As  regards  buffer  constraint,  the  conclusions  are  the  same 
as  that  for  the  non-causal  case. 

(4)  Once  again  we  do  better  for  the  CCALIF  image  than  for  the 
LADY  image.  This  can  be  confirmed  by  comparing  the  RMS  errors. 

(5)  Output  processing  using  slope  facet  caused  no  significant 
change  visually  or  errorwise. 

(6)  We  again  have  "blockiness"  due  to  reasons  explained  before. 

(7)  By  looking  carefully  at  LADYB  RFA  we  see  that  we  may  have 
done  a  better  job  on  the  right  eye  than  on  the  left.  This  is  because  in 
the  causal  case,  we  gather  more  and  more  information  as  we  go  from  left 
to  right. 

(8)  In  the  causal  case,  if  we  assign  TTOTAL  bits  for  the  whole 
image  there  is  no  guarantee  the  dynamic  program  will  use  exactly  TTOTAL 
bits.  Usually  it  ends  up  with  TTOTAL  +  10%. 
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APPENDIX  A.l 
MAX  QUANTIZER 


The  main  criteria  used  in  designing  a  quantizer  is  the  reduction 
of  the  quantization  error.  This  is  accomplished  by  adapting  the  struc¬ 
ture  of  the  quantizer  to  the  signal  to  be  processed.  The  problem  of 
quantizing  for  minimum  distortion  for  a  signal  of  known  probability  den¬ 
sity  p (x)  was  first  considered  in  detail  by  Max  [15]  in  1960.  We  present 
here  the  basic  formulation  of  this  problem  and  its  solution  as  developed 
by  Max. 

The  digital  transmission  rate  of  any  data-transmission  system  is 
finite.  This  means  that  a  quantizer  is  needed  which  sorts  the  input  sig¬ 
nal  into  a  finite  number  of  ranges,  N.  For  a  given  N,  the  system  is  des¬ 
cribed  by  specifying. the  end  points,  x^»  of  the  N  input  ranges,  and  an 
output  level,  y^,  corresponding  to  each  input  range.  If  the  amplitude 
probability  density  of  the  signal  which  is  the  quantizer  input  is  given, 
then  the  quantizer  output  is  a  quantity  whose  amplitude  probability  den¬ 
sity  may  easily  be  determined  as  a  function  of  the  x^'s  and  y^'s.  The 
distortion  D,  associated  with  the  quantization  process,  is  defined  as  the 
expected  value  of  f(e),  where  f  is  some  function  (differentiable),  and  e 
is  the  quantization  error.  If  we  call  the  input  amplitude  probability 
density  p(x),  then 


D  -  Elf(Sin  -  Sout» 
N  rx 


m  I  (  1+1  f(x  -  yi)p(x)dx 
i-1  *  x 


where  x^  ^  **  “>,  x^  -  °»,  and  the  convention  is  that  an  input  between  x^ 


and  has  a  corresponding  output  y^. 
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If  we  wish  to  minimize  D  for  fixed  N,  we  get  necessary  conditions 
by  differentiating  D  with  respect  to  the  x^'s  and  y^'s  and  setting  deri¬ 
vatives  equal  to  zero. 


3D 

3x 


j 


f(xj  -  y^Mx^)  -  f<Xj  -  yj)p(Xj)  -  o 

j  “  2 . N 


(1) 


3D 

3y  "  > 


J+l 


i 


f'(x  -  y^)p(x)dx  -  0 
j  -  1 . N 


(2) 


(1)  becomes  (for  p(x^)  /  0) 


f(Xj  -  y  j)  -  f(Xj  -  yj)  j  -  2,...,N 


(3) 


(2)  becomes 


j+l 


f’(x  -  yj)p(x)dx  -  0  j  -  1 . N 


(4) 


If  all  the  second  partial  derivatives  of  D  with  respect  to  the  x^'s 
and  y  's  exist  then  the  critical  point  determined  by  conditions  (3)  and 
(4)  is  a  minimum  if  the  matrix  whose  i^  row  and  column  element  is 


critical  point 

where  the  p's  are  the  x's  and  y's,  is  positive  definite. 

2 

If  we  let  f(x)  -  x  then  the  distortion  D  is  simply  the  mean  square 
quantization  error.  In  this  case, 

(3)  implies 


32D 


ap^Pj 
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*J  ■  <yj  +  yj-i)/2  or  yj  ■  ui  -  Vi 

J  -  2.....N 


(5) 


(4)  Implies 

rxj+i 

j  (x  -  y.)p(x)dx  -  0  j  -  1 . N  (6) 

XJ 


That  is  is  the  centroid  of  the  area  of  p(x)  between  x^  and  x 


j+1* 


Because  of  the  complicated  functional  relationships  which  are 
likely  to  be  induced  by  p(x)  in  (6),  this  is  not  a  set  of  simultaneous 
equations  we  can  hope  to  solve  with  any  ease.  Note,  however,  that  if  we 
choose  y1  correctly  we  can  generate  the  succeeding  x^'a  and  y^'s  by  (5) 
and  (6),  the  latter  being  an  implicit  equation  for  x^+1  in  terms  of  Xj 
and  yj . 

A  method  of  solving  (5)  and  (6)  is  to  pick  y^,  calculate  the  suc¬ 
ceeding  x. 's  and  y’s  by  (5)  and  (6)  and  then  if  y  is  the  centroid  of 
the  area  of  p(x)  between  x^  and  »,  y^  was  chosen  correctly.  If  yN  is 
not  the  appropriate  centroid,  then  y^  must  be  chosen  again.  This  search 
may  be  systematized  so  that  it  can  be  performed  on  a  computer  in  quite 
a  short  time. 

This  procedure  was  carried  out  by  Max  for  a  normalized  gausslan 
distribution,  under  the  restriction  that  x^^+i  *  0  for  N  even,  and 
y (N+l) /2  *  0  for  N  odd*  Thi8  Procedure  8lves  symmetric  results,  i.e., 
if  a  signal  amplitude  x  is  quantized  as  y^,  then  -x  is  quantized  as  -y^. 
The  answers  appear  in  Table  1. 
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TABI.fi  I 

PtaturncM  mm  nu  OrriMi  u  Q«  *\ntra 


9, 

* 

0  0 

0  0120 

1  724 

0  1 

DM 

!  l  ut 

Emr  0.1175 


Entropy  i  1  011 


Entropy  |  2  047 


oo  < 

0  too* 

0  1*37 

0  4047  ' 

0 

0  SAW 

0  8039 

1  05* 

0  9*56 

I  1  325 

!  1  SO! 

!  4W 

i  wo 

2  345 

1 

2  059 

1 

*  -  »  1 

Af  -  »  | 

!  -v  *  " 

| 

¥• 

1  *> 

9t 

9* 

* _  1 

j  ■ 

0  1)  1 

0  07502 

0  07257 

0  0 

0  0 

0.07016  ! 

0  i.V»:l 

0  2TA 

t)  21*2 

0  MAI 

0  1400 

0  2110 

0  3(M*  1 

0  37*0 

0  30S5 

0  2013 

0  2021 

0  3532 

0  4SSH  1 

0  5333 

0  SIM 

0  4300 

0  4255 

0  4970 

0  *i:i 2  1 

0  *030 

0  *003 

0  5012 

0  5710 

0  0400 

0  7700 

0  ft  ADD 

0  *2*7 

0  7475 

0  7225 

0  7900 

0  04*0  | 

1  h:I3  i 

i  0  90S* 

0  0100  | 

0  *78* 

0  95*0 

1  1.* 

1  21* 

1  172 

1  0*1 

1  043 

1  127 

j 

1  .110 

'  1  410 

1  3*2 

1  203 

1  217 

1  306 

/ 

1  5*29 

I  040 

1  570 

1  401 

1  404 

1  SOI 

1 

1  70* 

!  1  MU 

1  MM 

1  6*0 

1  000 

1  717  «  \\ 

1 

2  M2 

2  101 

2  077 

1  920 

t  040 

1  904  h 

2  3*5 

2  578 

2  417 

2  220 

2  111 

2.268  N 

I 

2  *71 

;  3  104 

2  DM 

2  600 

2  44* 

2  03*  u 

1 

3  100 

2  DM 

31,4  .  il 

Error 

0  0UJ24O  | 

0  003027  | 

0  002*34  *  1  j 

APPENDIX  A. 2 


Dynamic  Programming  Solution 
To  The  Optimal  Non-Causal  Bit  Allocation  Problem 


First  we  describe  a  dynamic  progarmming  algorithm  for  solving  the  Optimal 

Non-Causal  Bit  Allocation  problem  with  no  buffer  constraints  and  then  provide 

a  slight  modification  of* it  to  include  buffer  constraints. 

We  assume  there  are  K  image  blocks.  Let  P  -  {P. ,...,P  }  be  the  set  of 

l  n 

N  possible  bit  allocations  which  may  be  made  to  any  one  block.  Let  C  :  P+[0,00> 

be  the  error  versus  bit  rate  function  for  the  nth  block.  Let  B  be  the  total 

number  of  bits  to  be  allocated  to  the  K  blocks.  For  the  optimal  non-causal 

bit  allocation,  we  wish  to  find  any 

*  *  K  * 

b,,...,b.€P  ,  £  b.  £  B  ,  statisfying 
1  k-1  K 

K  *  K 

£  £k<bk)  1  jL^k^V  for  every  V  *  * '  •  ,bk  6  P 

K 

and  £  b.  <_  B  .  A  brute  force  procedure 
k-1 

k 

would  successively  go  through  all  N  possible  values  b1,...,b.  .  Then  for 

K  K  (b  ) 

those  satisfying  the  constraint  £  b.  <_  B  ,  it  would  compute  £  tk  k 

k-1  *  k-1 

and  remember  the  values  b*,...,b*  which  gave  the  minimum.  If  we  consider 
addition  as  the  basic  operation,  such  an  inefficient  procedure  would  take 
2  K  N  operations. 

Fortunately,  a  more  efficient  procedure  is  available.  It  is  a  special¬ 
ized  version  of  Bellman's  dynamic  progaramming .  To  illustrate  this  technique, 
we  need  the  following  definition.  For  any  T,  1  ±  T  <_  B  and  for  any 
M,  1  <M  <  K  define  fM(T)  by 


» 
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fM(T) 


M 

min  £  £m(bm) 

. b^EP  m*'*' 


M 


Y  bm  i T 

m“l 


Then  clearly 


t  eM  "  f-  0») 

k-1 


Nov 


notice  that  the  functions  can  be  computer  recursively  since 


M 


fM(T> 


min  JT  Cm(bm) 


b  i  f  •  •  •  ,  bj^6P  m=  X 


M 


Y  bm  1  T 
m=»l 


=  min  min 


bM€P  b1,..,bM_1£P 


M-l 

(£M(bM)  +  X!  £m(bm)} 


m*l 


M-l 


M-l 

T  b  <  T  -  b 

m  —  i 


m»l 


m 


min 


{^(bm) 


+  min 


bl . bM-l€P  ®"1 


M-l 

Y  £m(bm) } 


M-l 

Y  bm  <  T  -  bM 


m*l 


rain  {^(bm)  +  ffl_1(T-bM)} 
bMeP 


Computing  f^(B)  by  this  recursive  procedure  allows  a  more  efficient  cal¬ 
culation  since  it  requires  B.N  operations  to  compute  the  value  of  any  f  for 
all  of  its  possible  arguments.  The  values  of  the  functions  f  f  have 

X  lv“i 
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Then 


1  M_1  i 

-r2  -  L  bra  "  <  r} 

m-1 

-  min  eM(bM>  +  fM-l  <T"bM*ri*r2) 
bM£P 
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APPENDIX  A. 3 


ANALYTIC  SOLUTION  OF  THE  OPTIMAL  BIT  ALLOCATIONS  PROBLEM 
FOR  THE  OPTIMAL  NON-CAUSAL  DPCM  QUANTIZATION  PROBLEM 

2  2 

Let  be  random  variables  with  variances  respectively. 

Let  qp,  n  =  1,...,N  be  quantizing  functions.  qn(xn)  is  the  mean  of  the  inter¬ 
val  to  which  xn  is  quantized.  For  each  number  r  of  quantizing  values  for  the 
nth  variable,  we  define  the  quantizing  error  to  be 


d„(rn>  ■  "fn  Et<xn  -  W’  ] 

% 


From  rate  distortion  theory  we  can  expect  that 

0  -a  loq,r 

d  (r  )  =  a2  e  2  n 
n  n'  n 

Setting  bn  =  loggr  ,  we  can  write  the  distortion  as 

9  “a  b„ 
dn(bn}  =  CTn  e 

The  bit  assignment  problem  is  to  determine  satisfying  bn  >_  0  and 

N  N 

T  b  =  8  such  that  T  d„{b„)  is  minimized, 
n  =  1  n  n  -  1  n  n 

One  analytic  way  to  solve  this  problem  is  to  use  the  technique  of  Lagrange 

multipliers  and  assume  that  bp  can  take  any  real  value.  This  does  not  give  us 

the  precise  answer  we  want,  but  it  does  give  one  close  enough.  Another  technique 

is  to  use  dynamic  programming. 

N  N 

Set  f ( b-j , . . .  ,bfj)  =  dn(bn)  +  *(  }  1  b^  ~  B) 


V  2 


2  *  x<nt,bn  •  B> 


df  _  2,  \  "abk  .  . 

d5^_0k(-a)e  +A 

df  2  ’abk 

Setting  =  0,  we  have  \  =  oR  ae  ,  k 


=  1 . N. 
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Hence, 


x  /abk 
—5-  =  e 


aa, 


aqk  =  eabk 


ao. 

^  —  -  abK 


K  -  1  on  a°k 

bk  ‘  7 ln  ~r 


Since  ^2  b  =  B  we  may  solve  for  x. 


n  =  1 


in  al  +  1 
n  a 


E“r 

n  -  1 


Multiplying  by  a  and  bringing  the  sums  of  the  log  of  variances  to  the  left,  we  have 


N 


N 


aB  -  ^2  in  =  ^2  in  ~  =  N  in 

n  =  1  n  n  -  1  *  X 


rr(aB  -  ^2  in  cr)  =  in  a  -  in  X 


n  =  1 


Solving  for  x,  we  obtain 


in  x  =  in 


a  -  rr(aB  ■  S  W  o^) 


n  =  1 


=  in  a  +  j|(  in  -  aB) 

n  -  1 
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X  =  e*n  “  ’  N 


II 

•)(  S  £n  °n  "  aB) 

a  +  =  1  n 


in  a  . 
e  e 


1  2  4n  °n 

FT  n  =  1  n  -SB 


N 

i  £n  n  a  D 

N  „  =  i  n  -  H  B 
a  e  e 


N 


1/N 


in^  _  ,  n^  R/N 

.  n  =  l  -a  B/N 

a  e  e 


1/N 


_  /  n  a-a  B/N 

=  a(  «  on)  e 


n  =  1 


Now  substitute  this  value  of  \  in  the  expression  for  b 


a  a. 


u  _  1  ~  “n 

bn  "  a  *n  N  ,  1/N 


a{  n  °k)  e"a  B/N 
k  =  1 


1  ,  °n 

a  Un  — R  TT7n“ 

(  n  .*> 

k  =  1 


-  in  e"°  B/N) 
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\  i 


a1  n  N  ,  1/N 

(  n  a2) 

k  =  1 


-  (-a  B/N)) 


a(*n  N  "  1/N  +  T* 

(  n  ak2) 

k  =  1 


■B  x  1  .n  °n 

N  a  r~- . T/N 

(  H  a2) 
k  =  1 


p  N  1/N 

=  I  +  °l  ~  *n(fc  n  i  c2)  ) 


bn  =  +  l{ln  °n  -  iT  k?i  a2) 
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COMPUTES  PROGBAM  DOCOflENT ATION 

I.  GZHEBATIOH  OF  ERROR  VS  BIT  RATE  TABLES 

THIS  PACKAGE  GENERATES  TBS  DPCH  ERROR  VS  BIT  BATE  TABLES 
TO  BE  OSED  SUBSEQUENTLY  TO  DO  AN  OPTIMAL  BIT  ALLOCATION  AND 
STORES  THEB  IN  A  SEQUENTIAL  FILE  ON  DISK. 


DCEBDV 

DCMPIO 

DCEBNC 

HVARDL 

DPCHEfi 

QTZSAB 

DPCB2L 

DPCBXX 

RHSEBB 
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II.  OPTIBAL  BIT  ALLOCATION  AND  DPCH  COBPBESSION 


IBIS  PACKAGE  OSES  THE  EHBOH  VS  BIT  BATE  TABLES  Cl BATED 
BT  THE  FISST  PACKAGE  TO  PEBEOHB  AN  OPTIBAL  BIT  ALLOCATION 
ON  THE  BLOCKS  OF  AN  IBAGS  AND  THEN  DPCH'S  THOSE  ELOCKS 
ACCOfiDINGLT- 


DPCHDV 

DCBPIO 

DPCHNC 

OBITAL 

BSSALL 

FBSTCL 

NBXTCL 

HVABDL' 

OPCBEB 

QTZSAH 

DPCH2L 

DPCBZZ 

BHSEBB 
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o  o 


DCEBDV 


DPCM  ERROR  VS  BIT  TABLES  GENERATION  CBIVER 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IDENTIFICATION 


PROGRAM  TITLE 

AUTHOR 

DATE 

LANGUAGE 

SYSTEM 

SITE 


DCEBDV 

OSCAR  A.  ZUNIGA 
NOVEMBER  9,  1978 
FORTRAN  IV  (F44-RSI) 
PDP  -  15 
RSL  -  CBINC 


PURPOSE 


THIS  IS  THE  DRIVER  FOB  THE  BPCM  ERROR  VS  BIT 
TABLES  GENERATION  PROGRAM. 


ENTRY  POINT 


DCERDV  (ALTRET) 
ARGUMENT  LIST 


-NOTE-  ALL  ARGUMENTS  PASSED  THROUGH  KAHDIDATS 
LABELED  COMMON  ABEAS 


ALTRET  INT  ALTERNATE  RETURN  TAKEN  IN  CASE  OF  ERROR 

SUBROUTINES  CALLED 


KDPUSH  PUSH  EHBOB  PROCESSING  STACK 
DEVCHK  CHECKS  FOR  PROPER  DEVICES 
HDKINL  INITIALIZE  'SIF*  FILE 
HHBAND  GET  THE  BAND  (  I/O  ) 

COHTIN  GET  COMMENT  DESCRIPTOR 
RECORDS  (  I/O) 

CTRLT  SET  ADDRESS  OF  CONTBOL  T 
DCHPIO  DPCfl  DATA  COMPRESSION  I/O 
DCERNC  DPCfl  DATA  CORF.  NUMBER  CBUNCHER 
KDPOP  POP  EBRCR  PROCESSING  STACK 


(KANDATS) 

(KANDATS) 

(KANDATS) 

(KANDATS) 

(KANDATS) 

(SYSTEM) 

(USER) 

(USER) 

(USER) 


C* ************************************************ *************** 


C 

C 


SUBROUTINE  DCEBDV  (A1TBET) 
IMPLICIT  INTEGEB  (A-Z) 


DOUBLE  INTEGEB  INFIL  (10),  LPFIL  (10),  OTfIL  (10),  DOR 
DOUBLE  INTEGER  FILER  (2) 

BEAL  FRAC 

LOGICAL  LFLAG,  BRIEF,  LONG,  SHORT,  RUN 
INTEGER  IDENT  (20) ,  KDEHT  (20) 

COMMON  /IBCSIZ/  BRIEF,  INTT,  OTTT,  LONG,  SHORT,  RUN, 
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TTYIH,  TTYOT,  IP,  BONDAT,  IXPDAT,  SCDEV1 
SCDET2,  SCDET3,  COBOAT 
COSSOH  /EBBOB/  IZT 

coaaoH  /co a abo/  ifc,  otdetb,  otdet,  ottyp,  otfil,  ihdevn 

INDET,  IBTTP,  INFIL,  LPFIL,  D0H(10), 
LFLAG  (26) 

COaaON  /DCEBKA/  IBKSZ,  WOHK  (400) 

EQUXTALENCE  (NCOLS,  IDENT<13)),  (HBOfS,  HINT  (14)) 
EQOITALENCE  (BTBND,  IDEHT(17)),  (NSBHD,  IDENT(18)) 
EQOITALEBCE  (BODE,  IDENT{19)) 

EQOITALENCE  (NTBM02,  KDEBT  ( 17) ) ,  (NSBN02,  KEENT(18)) 
EQOITALENCE  (MODE2,  KDEBT (19)) 


DATA  DBTMSK  /P040000/ 
DATA  NO  /-I/ 


CALL  KDPOSH  ( * DCEHD* ,  •  T») 

BRKSZ  »  400 

CHECK  FOB  PBOPEB  DEVICE 

CALL  DEVCHK  (DETHSK,  1,  BIT,  69999) 

CHECK  IB POT  ABO  OOTPOT  .DAT  SLOTS 

I?  (  IBDET.LT. 1. OB.IBDETB.LT. 1. OB. SCDET1.LT.  1  ) 

GO  TO  9040 

IF  (  INDET.  EQ.IHDETH.OB.IBDET.  EQ.SCDET1.OB. 
IBDETB.EQ. SCDET1  )  GO  TO  9050 

SET  OP  IBPOT  FILE 

CALL  BDKINL  (  INDET,  INFIL,  IDENT,  1,  1ST ,  69999  ) 
CALL  CLOSE  (  INDET  ) 

CHECK  THE  IBPOT  FILE 

IF  (  BODE. ME.  1. AND. RODE. NE.O  )  GO  TO  9000 
IF  (NTBND  -  NSBND  .LE.  0)  GO  TO  9020 

BLKSZE  »  NROWS*NCOLS 

IF  (  3*BLKSZE.GT.»BKSZ  )  GO  TO  9010 

GET  INFOBBATION  FBOH  USES 

CALL  DCflPIO  (  PILNH,  BBFSZE ,  TOTAL,  HXNBTS ,  SELECT, 
FBAC  ) 


SET  OP  101  PASS  FILTER  PILE 


C 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


CALL  BDKIHL  (  INDEPN,  LPFIL,  KDEST,  1,  IIP/  69999  ) 

CALL  CLOSE  (  INDEPN  ) 

CHECK  LOB  PASS  PILTEB  FILE 

IP  (  H0DE2. NE. MODE  )  GO  TO  9030 
IP  (NTBHD2  -  NSBND2  -LE.  0  )  GO  TO  9020 

GET  THE  BAND  TO  OSE 

CALL  SHBAHD  {  LPPI L,  KDEBT,  SO,  BE 02 ,  IEP,  S9999  ) 
CALL  WHBAND  (  INPIL,  IDENT,  HO,  BHD,  IIP,  59999  ) 


C  ASK  OSEE  TO  WHITE  THE  COHHIHT 

c  DESCRIPTOR  RECORDS 

C 

CALL  COHTIH  (  69999  ) 

C 

c  SET  OP  IHTEBROPT  CONTROL  T- 

C 

CALL  CTHLT  (  58000  ) 


C 

C 

C 


1 

2 

3 


C 

8000 

C 

C 

c 


CALL  THE  MOBBEB  CBDHCHEB 


CALL  DCSBNC 


{  IKDEP,  INDE7N,  INPIL,  LPPIL, 
SCDEP1,  FILNM,  BHD,  BHD2 ,  10BK, 
1BKSI,  BXNBTS,  SELECT, 

PRAC,  IIP,  69998  ) 


CALL  KDPOP 
BETOBH 

CONTINUE 

CORTBOL  T  EXIT 

CALL  IGHOFT 

CALL  CLOSE  {  INDEP  ) 

CALL  CLOSE  (  IHDEPN  ) 

BETOBH 


c  ABNORMAL  CONDITIONS 

C 

9000  COHTIHOE 
C 
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C — DCEBNC 
C 

IDENTIFICATION 
TITLE 
AUTHOR 
VERSION 
DATE 

LANGUAGE 
SYSTEH 
SITE 


DPCM  EBHOH  VS  BIT  TABLES  GEE.  MORE EH  CBOMCHEB 


DCS  BMC 

OSCAB  A.  ZOHIGA 

A.  01 

11/04/78  06:33 

POBTBAH  IV  (V44-RSX/H0LTI-1CCESS) 

PDP-15 

BSL— CBINC 

UNIVERSITY  OF  KAMSAS, 

2291  IBVIMG  HILL  DBIVE, 

LAHBEMCE,  KAMSAS  66045. 

(913) -864-4836 


PURPOSE 


THIS  IS  THE  MUH8EB  CBOMCHEB  POH  THE  DECM  EBBCB  VS 
BIT  BATE  TABLES  GENERATION  EBOGBAR. 

THIS  ROUTINE  BEADS  BLOCKS  FBOS  AM  INPUT  IMAGE  AND 
A  LON  PASS  FILTEBED  VEBSION  OF  IT.  A  DPCH  TECHNIQUE 
SELECTED  BY  THE  OSEB  IS  THEN  APPLIED  TO  EACH  INPUT 
BLOCK  USING  SEVERAL  EIT  BATES  AND  A  DPCH  EBROB  TABLE 
IS  IN  THIS  HAY  CHEATED  WHICH  IS  STOBED  IN  A  SEQUEN¬ 
TIAL  FILE. 


ENTRY  POINT 


DCEBNC 


(  INDAT,  INDAT2,  IMFIL,  IPFIL, 
OTDAT2 ,  FILNM,  BHD,  BND2,  WORK, 
NBKSIZ,  NZNBTS,  SELECT, 

FRAC,  IEV,  EBBET  ) 


ARGUMENT  LISTING 


INDAT 

IMDAT2 

IMFIL 


INT 
I  NT 
DINT 


INPUT  LOGICAL  ONIT  NUMBER 
INPOT  LON  FOB  LOW  PASS  FILTER  FILE 
INPUT  FILE  NAME 


c 

LPFIL 

DINT 

LOi 

PASS  FILTER 

FILE  NAME 

c 

OTDAT2 

INT 

LUN 

FOB  SEQUENTIAL  FILE 

c 

FILNM 

DINT 

SEQUENTIAL  FILE 

NAME 

c 

BND 

INT 

BAND 

OF  INPUT  IMAGE  TO  BE  PROCESSED 

c 

BND2 

INT 

BAND 

'  OF  LOH  PASS 

!  FILTER  IMAGE 

c 

WORK 

INT 

WORK 

ABBAY  TO  HOLD  INPUT  AND 

OUTPUT 

c 

HRKSIZ 

INT 

SIZE 

1  OF  THE  WORK 

ARRAY 

c 

HXNBTS 

INT 

MAXIMUM  NUMBEB  OF  QUANTIZATION  BITS 

c 

SELECT 

INT 

SELECTION  NUMBER 

FOB  DPCH  TECHNIQUE 

c 

(2) 

2-D  DPCH 

FLAT  MODEL 

LSE 

c 

(3) 

NOD  DPCE 

FLAT  MODEL 

LSE 

c 

(4) 

2-D  DPCH 

FLAT  MODEL 

HVE 

c 

(5) 

HOD  DPCH 

FLAT  HODEL 

HVE 

c 

(6) 

2-D  DPCH 

SLOPED  HODEL 

LSE 

c 

<7) 

HOD  DPCH 

SLOPED  HODEL 

LSE 

c 

(8) 

2-D  DPCH 

SLOPED  HODEL 

HVE 
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C  NOT  IN  IHTEGBB  FILE 

C 

1ST  *  -2012 
GO  TO  9998 
C 

9010  CONTINUE 
C 

C  NOT  SNO OGB  SOHK  SPICE 

C 

1ST  *  -5010 
GO  TO  9998 
C 

9020  COHT1NOE 
C 

C  NO  NDHBBIC  BANDS 

C 

IET  *  -5018 
GO  TO  9998 
C 

9030  CONTINUE 
C 

C  INPUT  FIXES  NOT  THE  SABI  i!ODE 

C 

IEV  »  -5022 
GO  TO  9998 
C 

9040  CONTINUE 
C 

C  ILLEGAL  .DAT  SLOTS 

C 

IET  =  -2001 
GO  TO  9998 
C 

9050  CONTINUE 
C 

C  .DAT  SLOTS  THE  SAHZ 

C 

IEV  *  -5009 
GO  TO  9998 
C 

9998  CONTINUE 
C 

C  EBROB  IN  SUEPBOGBAH 

C 

CALL  CLOSE  (  INDEV  )  . 

CALL  CLOSE  (  INCEVM  ) 

C 

C  ABNOBBAL  BETUBN 

C 

9999  BETUBN  ALTHET 
END 
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no  o  no  non 


FBAC  HEAL 

IEV  I NT 


EHHET  1ST 


(9)  HOD  DPCB  SLOPED  MODEL  HVE 
FRACTION  OF  STANDARD  DEVIATION  THAT 
BANGS  OF  DITHZB  SHOULD  BE 
IBTEGEB  EVENT  VARIABLE 
-  -2001  ILLEGAL  FILE  CODE 
*  -5009  LONS  ABE  THE  SAfll 
EBBOB  BZTOBH 


HARDWARE  BEQOIRED 
PDP  -  15 

PBOGBAH  ZNVIBONHENT 

DCEBNC  SHOULD  BE  CALLED  BT  ITS  DRIVER  DCEBDV  IN  KANDIDATS 


ROUTINES  CALLED 

KDPUSH  PUSH  NAHE  ONTO  EBBOB  STACK 
BDKINL  INITIALIZES  AND  ACCESSES  AN  *SIF* 
FILE  IN  A 1  FORMAT 

BREAD  READ  A  BLOCK  FSOH  AN  (SIF)  IMAGE 

HVARDL  MEAN  AND  VARIANCE  OF  THE  DI 
FFEBEHCE  BETWEEN  2  LINES 
DPCMEH  DPCM  DATA  COHPBESSION  ERROR 
KDPOP  POPS  THE  NAME  OUT  OF  THE  ERROR  STACK 


(KANDIDATS) 

(KANDIDATS) 

(KANDIDATS) 
(  USER  ) 

(  USER  ) 
(KANDIDATS) 


> ******************************************************** *********** 


SUBROUTINE  DCEBNC  (  INDAT,  INDAT2,  INFIL,  LPFIL, 

1  OTDAT2,  FILNM,  BND ,  BND 2 ,  WORK, 

2  WRKSIZ,  MXNBTS,  SELECT, 

3  FBAC,  IZV,  ERBET  ) 


IMPLICIT  INTEGEH  (A-Z) 


DOUBLE  INTEGER  INFIL ( 10) , LPFIL ( 1 0) 
DOUBLE  INTEGER  1ST 
DOUBLE  INTEGER  FILNH (2) 


INTEGER  IDENT  (20)  ,KDENT  (20) 

INTEGER  WORK  (WRKSIZ) ,  QTZBTS(IO) 

REAL  SLKEBR (10) ,  VARTAB(IOO),  DMEAN,  DVAR,  ERROR,  FBAC 
BEAL  MNTAB  (100)  ,  SQRT 


EQUIVALENCE  (MBITS, IDENT(5) ) , (NWDS , IDENT  ( 12) ) 
EQUIVALENCE  (NPPL, IDENT (6) )  , (NLIN, IDENT  (7) ) 


r 


i 


i 


i 

Y 


■4 


C 


c 

c 

c 

c 

c 


1 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 
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EQUIVALENCE  (NCOLS, IDENT ( 1 3) ) , (NBOBS, IDENT ( 1 4) ) 
EQUIVALENCE  (NODE, IDENT (19)) 

EQUIVALENCE  (NPPI2, KDEIT  (6)  )  ,  (HL1U2,  KDBNT  (?) ) 
EQUIVALENCE  ( NCCL2, KDENT < 1 3) ) ,  (NBOH2,RD£NT (14) ) 


CALL  KDPOSH ('DCEBN*, *C») 

CHECK  .DAT  SLOTS 

17  (INDAT.EQ.OTDAT2.OB.INDAT2.BQ.CTDAT2.OB. 
OTDAT. EQ-OTDAT2)  60  TO  9010 

17  (  OTDAT2  .LT.  1  )  GO  TO  9050 


OPEN  INPUT  FILE 

CALL  8DKIHL  (INDAT,INFIL, IDENT, 1 ,IEV, 69998) 

CALL  CLOSE  <  IN DAT  ) 

OPEN  LOS  PASS  FIITEB  FILE 

CALL  HDKINL  (  INDAT2,  LPFIl,  KDENT,  1,  IEV,  69998  ) 

CHECK  THAT  SIZE  07  INPUT  TILES 
IS  THE  SAHE 

IF  (  NPPL. NB. NPPL2.0B.NLIN.NE.NLIN2  )  GO  TC  9030 
IF  (  NCOLS. NS. NC0L2. OB. NBOSS. HE. NROB2  )  GO  TC  9040 


ACTUAL  NUHBEH  CBONCHING 

COHPUTE  THE  NUHBEB  OP  BLOCKS  IN 
INPUT  FILE  AND  THE  BLOCK  SIZE 

HBLCKS  =  ICEIL  (  NLIN,  NBOWS  ) *ICEIL  (  NPPL,  NCOLS  ) 
BLKSZE  »  NBOSS* NCOLS 

COHPUTE  POINTEBS  FOB  BOSK  ABEA 


PT1  *  1 

PT2  *  PT 1  ♦  BLKSZE 
PT4  *  PT2  ♦  BLKSZE 

COHPUTE  THE  DPCH  EBBOB  TABLE 

DO  1015  1*1,  HXNBTS 
QTZBTS(I)  *  I 
CONTINUE 


)  , 
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non  n  nno  nnnnnn  n  n  n  nn 


CALL  ENTEB  (  0TDAT2,  PILNH  ) 
MBITS  (0TDAT2)  HXNBTS,  HBLCKS 


00  1060  1*1,  NBLCKS 

CALL  BBEAD  (  IB  DAT ,  MOBK(PTI),  BUD,  I,  1,  IDEHT, 

1  IE7,  69998  ) 

CALL  BBEAD  (  INDAT2,  BORK  (PT2) ,  BMD2 ,  I,  1,  KDENT, 

1  ISYf  69998  ) 

CALL  R7ABDL  (  WOBK(PTI),  MOBK  (PT2) ,  DHEAH,  EVAR,  BLKSZE  ) 
TABTAB (I)  »  D7AB 
BETAS (I)  *  DHEAN 
00  1050  BBTS  »  1,  HXNBTS 

CALL  OPCHEB  (  HOHK(PTI),  MOBK(PT4),  M0BK(PT2),  DREAM, 

1  D7AB,  BLKSZE,  NCOLS,  BBTS,  FR  AC, 

2  1ST,  SELECT,  EBBOB  ) 

BLKEBB  (BBTS)  *  EBBOB 

1050  CONTIMDE 

MBITS  (OTDAT2)  (  QTZBTS  (L)  ,  L  *  1,  HXMBTS  ) 

MBITS  (OTDAT2)  {  BLKEBB  (L)  ,  L  »  1,  HXNBTS  ) 

1060  CONTINOE 

1070  COMTIMOB 

WHITE  (OTDAT2)  (  7ARTAB (L) ,  L  ■  1,  HBLCKS  ) 

CALL  CLOSE  <  0TDAT2  ) 

CALL  CLOSE  (INDAT) 

CALL  CLOSE (INDAT2) 

CALL  KDPOP 
B STORM 


ABNORMAL  CONDITIONS 

9010  CONTINUE 

LONS  ABE  THE  SAME 

IE7  »  -5009 
GO  TO  9999 

9030  CONTINOE 

INPUT  PILES  NOT  THE  SAHE  SIZE 

IE7  *  -5021 
GO  TO  9999 
C 

9040  CONTINOE 


on  noon  non  o  on 


9050 


9998 


9999 


INPUT  PILES  HOT  THE  SAME  BLOCK  SIZE 


IE7  *  -5023 
GO  TO  9999 

CONTINUE 

ILLEGAL  PILE  CODE 

IET—2001 
GO  TO  9999 
CONTINUE 


HEAD  OB  WHITE  EBBOB 

CALL  CLOSE  {  INDAT  ) 

CALL  CLOSE  (  INDAT2  ) 

RETUHN  EBBET 


END 
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n  n 


C— DPCHDV  NOH-CAUSAL  DPCH  DATA  COHPRESSION  DRIVER 

C 

C  IDENTIFICATION 
C 

C  PHOGBAH  TITLE  DPCHDV 

C  ACT BOB  OSCAB  A.  ZDNIGA 

C  DATE  H07E8BEH  9,  1978 

C  LANGUAGE  POSTBAN  IV  (744-BSX) 

C  STSTEH  PDP  -  15 

C  SITE  HSL  -  CBISC 

C 

C  PURPOSE 
C 

C  THIS  IS  TBE  DBI7EB  FOB  THE  MON-CAUSAL  DPCH  DATA 

C  COHPBESSIOH  PSOGRAB- 

C 

C  EHTBI  POINT 
C 

C  DPCHDV  (ALTBET) 

C 

C  ABGUBENT  LIST 
C 

C  —NOTE—  ALL  ARGUMENTS  PASSED  THROUGH  KASDIDATS 

C  LABELED  COflHON  AREAS 

C 

C  ALTBET  INT  ALTERNATE  BETUBM  TAKEN  IN  CASE  OF  ERROR 

C 

C  SUBROUTINES  CALLED 

C 


c 

KDPUSH 

PUSH  BBBOB 

PROCESSING  STACK 

(KANDATS) 

c 

DEVCHK 

CHECKS  FOB 

PSOPEB  DEVICES 

(KANDATS) 

c 

RDKINL 

INITIALIZE 

«SII*  FILE 

(KANDATS) 

c 

88BAND 

GET  THE  BAND  (  I/O  ) 

(KANDATS) 

c 

COHTIH 

GET  COBMENT  DESCBIPTOB 

c 

BECOBDS  < 

I/O) 

(KANDATS) 

c 

CTRL! 

SET  ADOBESS  OF  CONTROL  T 

(SISTEH) 

c 

DCHPIQ 

DPCH  DATA 

COHPBESSIOH  I/O 

(USES) 

c 

DPCHNC 

NON-CAUSAL 

DPCH  NUBBER  CRUNCHER 

(OSES) 

c 

KOPOP 

POP  EBBCB 

PROCESSING  STACK 

(USER) 

C 

£•************************«*«***********************#** ********** 

C 


SUBROUTINE  DPCB07  (ALTBET) 
C 

I BP LICIT  INTEGER  (A-Z) 


DOUBLE  INTEGER  INFIL  (10),  LPFIL  (10),  OTFIl  (10),  DUB 
DOUBLE  INTEGER  FILNH  (2) 

REAL  FRAC 

LOGICAL  LFLAG ,  BRIEF,  LONG,  SBOBT,  BUR 
INTEGEB  ZOENT  (20) ,  KDZNT  (20) 

C 

CO f! HON  /IBCSIZ/  BRIEF,  INTT,  OTTT,  LONG,  SHORT,  RUN, 
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nno  n  nnn  n  non  n  n  n  n  non  n  on  on 


1  TTYIN,  TTYOT,  LP,  RONDAT,  IXPDAT,  SCDEV 1 , 

2  SCDEV2,  SCDEV3 ,  CDBDAT 

COBHON  /EBBOR/  IEV 

cobbon  /cohand/  ipc,  otdevn,  otdev,  ottyp,  otfil,  indevn, 

1  INDEV,  IHTYP,  INFIL,  LPFII,  DOB  ( 10)  t 

2  LPL1G  (26) 

COBBON  /DCEWKA/  SRKSZ,  VOBK  (900) 

EQOIVALENCE  (VCOLS,  IDZ1TT(13)),  (NROBS,  IDZHT(14)) 
EQOIVALENCE  (NTBND,  IDENT(17)),  (NSBND,  IEENT{18)) 

EQOIV ALEMCE  (BODE,  IDENT(19)) 

EQOIVALENCE  (NTBND2,  KDENT (17) )  ,  (NSBND2,  RDEBT (18) ) 
EQOIVALENCE  (BODE2,  KDEBT (19)) 


DATA  DEVBSK  /#040000/ 
DATA  HO  /-I/ 


CALL  KDPOSH  ('DPCHD‘,  'V») 

HRKSZ  *  400 

CHECK  POB  PBOPEB  DEVICE 

CALL  DEVCHK  (DEVBSK,  1,  BIT,  G9999) 

CHECK  IBPOT  AND  OOTPOT  .DAT  SLOTS 

IF  (  IMDEV.LT. 1.0R.INDEVN.LT. 1. OR.OTDEV.LT. 1  ) 

1  GO  TO  9040 

IP  (  IN DEV. EQ. IHDEVN. OB.INDEV. EQ. OTDEV. OB. 

1  INDEVN.EQ. OTDEV  )  GO  TO  9050 

SET  OP  IMPOT  PILE 

CALL  RDKINL  (  INDEV,  INFIL,  IDENT,  1,  IEV,  69999  ) 
CALL  CLOSE  (  INDEV  ) 

CHECK  THE  INPOT  PILE 

IF  (  MODE.  HE.  1.  AND.  NODE.  HE.  0  )  GO  TO  9000 
I?  (NTBND  -  NSBND  .  LE.  0)  GO  TO  9020 

BLKSZE  -  NROf S*NCOLS 

IP  (  3*BLKSZE. GT. 9RKSZ  )  GO  TO  9010 

GET  INPOBHATION  FROH  OSES 

CALL  DC3PIO  (  FILNH,  BBPSZE,  TOTAL,  HXIBTS,  SELECT, 
1  PB AC  ) 
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nnn  non  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  r>  n  noon 


SET  OP  LOB  PISS  FILIEB  PILE 

CALL  B OKI  ML  (  INDEVN,  LPPIL,  KDEMT,  1,  IEV,  £9999  ) 

CALX  CLOSE  (  IHDEVN  ) 

CHECK  LOB  PASS  FX1TEB  PILE 

IP  (  MODE2. ME*  NODE  }  GO  10  9030 
IF  (MTBJD2  -  MSBND2  . LE.  0  )  GO  TO  9020 


GET  THE  BAHD  TO  OSE 

CALL  BHBAMD  (  LPPIL.  KDEMT,  MU,  BHD2,  IEV,  £9999  ) 


CALL  HHBAMO  <  IMFIL,  IOENT,  MO,  BMO,  IEV,  £9999  ) 

ASK  OSEB  TO  B1ITE  THE  COMMENT 
DESCB1FTOB  BECOBOS 

CALL  CQHTIM  (  £9999  ) 

SET  OP  IMTEBBOPT  COMTEOL  T 

CALL  CTHLT  (  £8000  ) 

CALL  THE  MOBBEB  CBONCBEB 

CALL  DPCHMC  (  IMOEV,  I1DEVI,  IMFIL,  LPPIL,  OTCEV, 

1  OTFIL,  SCDEV1,  FIIHH,  BMD,  BNE2,  WORK, 

2  BHKSZ,  BBFSZE,  TOTAL,  HXMBTS ,  SELECT, 

3  FRAC,  IEV,  £9998  ) 

CALL  KOPOP 
RETOBN 

3000  COMTINOE 

COITBOL  T  EXIT 

CALL  IGNOBT 

CALL  CLOSE  (  INDE7  ) 

CALL  CLOSE  (  IMDEVN  ) 

CALL  CLOSE  (  OTDEV  ) 

BETOBM 

ABMOBMAL  COMOITIOMS 

9000  COMTIMOE 
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nno  ooo  n  non  n  non  o  ooo  n  non  n  n  n  r>  n  n  n  n 


NOT  iN  INTEGER  FILE 

IE?  *  -2012 
GO  TO  9998 

9010  CONTI HOE 

HOT  ENOUGH  BOSK  SPACE 

IE V  =  -5010 
GO  TO  9998 

9020  COHTIHOE 

HO  HUMEBIC  BANDS 

IB?  *  -5018 
GO  TO  9998 

9030  CONTINUE 

INPUT  FILES  NOT  THE  SAHE  HODE 

IEY  *  -50  22 
GO  TO  9998 

9040.  C0NTIN0E 

ILLEGAL  .DAT  SLOTS 

IEV  =  -2001 
GO  TO  9998 

9050  CONTINUE 

•DAT  SLOTS  THE  SAHE 

IEV  »  -5009 
GO  TO  9998 

9998  CONTINUE 

ERROR  IN  SUEPBOGRAH 

CALL  CLOSE  (  INDEV  ) 

CALL  CLOSE  {  INDEVN  ) 

CALL  CLOSE  {  0TDEV  ) 

ABNOHHAL  RETURN 

9999  RETURN  ALTRET 
END 
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-DCHPIO  DPCH  DATA  COMPRESSION  I/O 

IDENTIFICATION 


TITLE 

AOTBOB 

DATE 

LANGUAGE 

SYSTEM 

SITE 


DPCH  DATA  COMPRESSION  I/O 

OSCAR  A.  ZONIGA 

AUGUST  30,  1978 

BATPOR  (  XVH/RATFOR  V2A003  ) 

POP  -  15 

BSL  -  CBINC 

UNIVERSITY  CF  KANSAS 

2291  IRVING  HILL  D HIVE 

LAWRENCE ,  KANSAS  66045 

(913) -864-4836 


PURPOSE 


THIS  SUBROUTINE  OBTAIN  FROM  THE  USER  ALL  THE  INFOR¬ 
MATION  REQUIRED  TO  PERFORM  THE  DPCH  DATA  COMPRESSION 
EXPERIMENTS 

ENTRY  POIMT 


CALL  DCHPIO  (  FILNH,  BBFSZE,  TOTAL,  MXNBTS,  SELECT, 
FRAC  ) 

ARGUMENT  LIST 


FILNH 

DINT 

SEQUENTIAL  FILE  NAME  FOR 

DPCH  EBBOB  TABLE 

BBFSZE 

INT 

THE  BIT  BUFFER  SIZE 

TOTAL 

I  NT 

TOTAL  NUMBER  CF  BITS  CONSTRAINT 

MXNBTS 

INT 

THE  MAXIMUM  NUMBER  OF  BITS  TO  BE 
ASSIGNED  TO  ARY  BLOCK  {  BETWEEN  0 
AND  6  ) 

SELECT 

INT 

ALLOWS  THE  USER  TO  SELECT  A  PARTI¬ 
CULAR  DPCH  TECHNIQUE 

(2) 

2-D  DPCH 

FLAT  MODEL 

LSE 

(3) 

MOD.  DPCB 

FLAT  MODEL 

LSE 

(9) 

2-D  DPCH 

FLAT  MODEL 

HVE 

(5) 

HOD.  DPCH 

FLAT  MODEL 

HVE 

(6) 

2-D  DPCH 

SLOPED  MODEL 

LSE 

(7) 

BOD.  DPCH 

SLOPED  BOCEL 

LSE 

(8) 

2-0  DPCH 

SLOPED  HCDEL 

HVE 

(V 

HOD.  DPCH 

SLOPED  MODEL 

HVE 

FRAC  REAL  FRACTION  OF  STANDARD  DEVIATION  THAT 
RANGE  OF  DITHER  SHOULD  BE  (  TC  BE 
USED  ON  THE  PARTICULAR  DPCB  TECHNI¬ 
QUE  ) 


HARDWARE  REQUIRED 


POP  -  15 


* 

*  SUBROUTINES  CALLED 

* 

*  NONE 


I***** ***** ******* ********* ************* *************** ****** ******* 


SUBROUTINE  DCMPIO  (  PILMH,  BBFSZE,  TOTAL,  HXN8TS,  SELECT, 

FHAC  ) 

» 

*  TTPE  STATEMENTS 

t 


IMPLICIT  INTEGEB  (  A  -  Z  ) 

DOUBLE  INTEGEB  EILNM  (2) 

BEAL  FRAC 

DATA  INTT,  OTTT  /  12,  13  / 

# 

#  HEAD  SEQUENTIAL  PILE  NAME  fCH 

»  DPCM  EH BOB  TABLE 

i 

BRITE  (OTTT ,6000) 

6000  FORMAT  (* - ENTER  SEQUENTIAL  PILE  NAME  PCH  DPCM  EBBOB '// 

•  TABLE - AS,  A4 - *  ) 

t 

BEAD  (INTT, 6010)  FILNH 
6010  PORMAT  (  AS ,  A«  ) 

* 

#  BEAD  LOB  PASS  FILTER  IMAGE  OPTION 

#  HEAD  TOTAL  NUMBER  OP  BITS  CCNSTBAINT 

# 

WRITE  (OTTT, 6050) 

6050  FORMAT  ('  - ENTER  TOTAL  NUMBER  OP  BITS  CONSTRAINT  — 13  — ’ ) 

READ  (INTT, 6070)  TOTAL 

# 

*  READ  BIT  BUFFER  SIZE 

* 

BRITE  (OTTT, 6060) 

6060  FORMAT  (' - ENTER  BIT  BOFFEB  SIZE - 13 •) 

READ  (INTT, 6070)  BBFSZE 
6070  FORMAT  (  13  ) 

* 

»  READ  MAXIMUM  NUMBER  OF  BITS  TO  BE 

*  ASSIGNED  TO  ANY  INDIVIDUAL  BLOCK 

* 

BRITE  (OTTT, 6080) 

6080  FORMAT  (•  ——ENTER  THE  MAXIMUM  NUMBER  OF  EITS  TO  BE1/, 

•  ASSIGNED  TO  ANY  INDIVIDUAL  BLOCK - II - •) 

HEAD  (INTT, 6090)  NXNBTS 
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6090  FOBHAT  (  II  ) 

* 

#  HEAD  SELECTION  FOB  DPCH  TECHNIQUE 

» 

IHITE  (OTTT  ,6100) 


FOBHAT  (• 

——ENTER  SELECTION 

FOB  DPCH  TECHNIQUE— 11 - 

« 

(2) 

2-D  DPCH 

FLAT  HO DEL 

L.  S.  E.  •/# 

» 

(3) 

HODIF.  DPCH 

FLAT  HO DEL 

L.S.E.  '/, 

i 

(9) 

2-D  DPCH 

FLAT  RODEL 

HIN.  VAR. 

V, 

c 

(5) 

HODIF.  DPCH 

FLAT  HODEL 

HIN.  VAR. 

V, 

i 

«) 

2-D  DPCH 

SLOPED  HODEL 

L.S.E.  '/, 

9 

(7) 

HODIF.  DPCH 

SLOPED  HODEL 

L.S.E.  •/# 

t 

(8) 

2-D  DPCH 

SLOPED  HODEL 

HIN.  VAR. 

V, 

f 

(9) 

HODIF.  DPCH 

SLOPED  HODEI 

HIN.  VAR. 

’  ) 

BEAD  (INTT 

,6090) 

SELECT 

*  HEAD  FRACTION  OF  STANDARD  DEVIATION 

I  THAT  BASSE  OF  DITBEB  SHOULD  BE 

* 

HRITE  (OTTT,  6  110) 

6110  FOBHAT  <*  - ENTER  FRACTION  OF  STANDARD  DEVIATION  THAT'/, 

•  RANGE  OF  DITHER  SHOULD  BE - F5.3 - ') 

READ  (INTT, 6 1 20)  FRAC 
6120  FORHAT  (  F5.  3  ) 

* 

# 

RETURN 

END 
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C — DPCHNC  80S— CAUSAL  DPCM  NUMBEB  CRUNCHES 

C  (  USING  DYNAMIC  PROGRAMMING  ) 

C 

C  IDENTIFICATION 
C  TITLE 

C  AUTHOB 

C  VERSION 

C  DATE 

C  LANGUAGE 

C  SYSTEM 

C  SITE 

C 
C 
C 
C 
C 

C  PURPOSE 

c 

C  THIS  IS  THE  NUMBER  CRUNCHER  POB  THE  DPCM  DATA  COM- 

C  PRESSION  PBOGBAH. 

C  THIS  BOUTINS  DOES  AS  OPTIMAL  BIT  ALLOCATION  TO  THE 

C  BLOCKS  OF  AN  INPUT  IMAGE  BY  THE  TECHNIQUE  CF  DYNAMIC 

C  PROGRAMMING  USING  A  DPCM  ERROR  VS  BIT  BATE  TABLE  CRS- 

C  ATED  PREVIOUSLY  AND  STORED  IN  A  SEQUENTIAL  FILE. 

C  BLOCKS  ARE  THEN  READ  FROM  THE  INPUT  IMAGE  AND  A  LOW 

C  PASS  FILTERED  VERSION  OF  IT  AND  A  DPCM  TECHNIQUE 

C  SELECTED  BY  THE  USER  IS  SUBSEQUENTLY  APPLIED  TO  EACH 

C  BLOCK  USING  AS  MANY  BITS  AS  INDICATED  BY  THE  OPTIMAL 

C  BIT  ALLOC ATIOS  ALGORITHM. 

C 

C  ENTRY  POINT  . 

C 

C  DPCHNC  (  INDAT,  INDAT2,  INFIL,  LPPIL,  OTDAT , 


C 

OTFIL, 

OTDAT2,  FIINM,  BND,  BND2 ,  WORK, 

c 

WRKSIZ 

,  BBFSZE,  TOTAL,  MXNBTS,  SELECT, 

c 

FHAC, 

IEV,  EHRET  ) 

C 

c 

c 

ARGUMENT  LISTING 

C 

INDAT 

IHT 

INPUT  LOGICAL  UNIT  NUMBER 

c 

INDAT2 

INT 

INPUT  LUN  FOR  LOi  PASS  FILTEB  FILE 

c 

INFIL 

DINT 

INPUT  FILE  NAME 

C 

LPFIL 

DINT 

LOW  PASS  FILTER  FILE  NAME 

c 

OTDAT 

INT 

OUTPUT  LOGICAL  UNIT  NUMBER 

c 

OTFIL 

DINT 

OUTPUT  FILE  NAME 

c 

OTDAT2 

INT 

LUN  FOR  SEQUENTIAL  FILE 

c 

FILNH 

DINT 

SEQUENTIAL  FILE  NAME 

c 

BND 

INT 

BAND  OF  INPUT  IMAGE  TO  BE  PROCESSED 

c 

BND2 

INT 

BAND  OF  LOW  PASS  FILTER  IMAGE 

c 

WORK 

INT 

WORK  ARRAY  TO  HOLD  INPUT  AND  OUTPUT  LINES 

c 

WRRSIZ 

INT 

SIZE  OF  THE  WORK  ARBAY 

c 

BBFSZE 

INT 

BIT  BUFFER  SIZE 

c 

TOTAL 

INT 

TOTAL  NUMBER  OF  BITS  TO  BE  ALLOCATED 

C  TO  ALL  BLOCKS  IN  THE  INPUT  IMAGE 


DPCHNC 

OSCAR  A.  ZUNIGA 
A. 01 

11/04/78  06:33 

FORTRAN  IV  (V44-RSX/MULTI- ACCESS) 

PDP-15 

SSL— CHINC 

UNIVERSITY  OF  KANSAS, 

2291  IBVING  HILL  DRIVE, 

LAWRENCE,  KANSAS  66045. 

(913) -864-4836 
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c 

'  'i  A - ’ — 

HZNBTS 

IHT 

BAZIBUB  NUBBEB  OF  QUANTIZATION  BITS 

c 

SELECT 

IHT 

SELECTION  NUBBEB  FOB  DPCB  TECHNIQUE 

c 

FRAC 

BEAL 

FRACTION  OF  STANDARD  DE7IATI0N  THAT 

c 

BANGS  OF  DITHEB  SHOULD  BE 

c 

IE7 

IHT 

INTEGER  E7ENT  7ABI ABLE 

c 

»  -2001  ILLEGAL  FILE  CODE 

c 

*  -5009  LUNS  ABE  THE  SAHE 

c 

c 

EBBET 

INT 

EBBOB  BETUBN 

HAS  DEARS  REQUIRED 
POP  -  15 

PROGHAB  EH7IH0NHENT 

DPCBNC  SHOULD  BE  CALLED  BI  ITS  DRI7EB  CPCHE7  IS  KANDIDATS 


BOOTINES  CALLED 


C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c* ♦*•**»*** ************************ «******♦*»» *************** ******** 

c 

c 

c 

SUBROUTINE  DPCBHC  (  IHDAT,  IBDAT2,  INFIL,  LPFIL,  OTDAT, 

1  OTFIL,  OTDAT2,  FILN8,  BHD/  BHD2,  WORK, 

2  HBXSIZ/  8BPSZE,  TOTAL,  HXNBTS,  SELECT, 

3  FBAC,  IE7,  EBBET  ) 


KDPUSH 

RD1&NL 

BPTDSC 

HAH EEC 
BDSC20 
COHTHB 
NBCHKO 

B7ABDL 

DPCHEB 

OBITAL 

BREAD 

BHBITE 

KDPOP 


POSH  HABE  ONTO  EBBOB  STACX 
INITIALIZES  AND  ACCESSES  AN  'SIF* 
PILE  IN  A 1  FOBBAT 

COPIES  DESCBI PTOB  BECOBDS  FBOB  INPUT 
TO  OUTPUT  FILE 
BRITS  BEN  HARE  BECOBDS 
BBITES  PAHAHETESS  BECOBDS 
WRITES  COBBENT  OESCBIPTOB  RECORDS 
CHECKS  <0*  FLAG  BEFORE  GETTING  NEB 
NUHHEH  OF  BECOBDS  (  FUNCTION  ) 

HEAH  AND  7ABIANCE  OF  THE  DIFF 

BBENCE  BETWEEN  2  LINES 

DPCB  DATA  COHPBSSSION  EBBOB 

OPTIHAL  BIT  ALLOCATION 

BEADS  A  BLOCK  FBOB  AN  »SIF«  IBAGE 

BBITES  A  BLOCK  OH  AH  »SIF*  FILE 

POPS  THE  NABE  OUT  OF  THE  EBBOR  STACK 


(KANDIDATS) 

(KANDIDATS) 

(KANDIDATS) 

(KANDIDATS) 

(KANDIDATS) 

(KANDIDATS) 

(KANDIDATS) 

(  USES  ) 

(  USER  ) 

(  USER  ) 
(KANDIDATS) 
(KANDIDATS) 
(KANDIDATS) 


C 

C 


IBPLICIT  INTSGEfi  (A-Z) 

DOUBLE  IHT.EGEB  IHPIL  (10)  ,LPFIL  ( 10)  ,OTFIL  ( 10)  ,  NABE  (7) 
DOUBLE  INTEGER  1ST 
DOUBLE  INTEGER  FILMS (2) 
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n  n  n  nn  n  n  n  n  on  n  n  n  noon  o  ono  o  n  o  no 


C 

INTEGER  PAR  AM  (20) ( IDENT (20) * KDENT (20)  , JDENT  (20) 
INTEGER  WORK  (WBKSIZ)  ,  QTZBTS(IO),  CBITA3(100) 

C 

BEAL  DMEAN ,  DVAB,  ERROR,  FB AC 
BEAL  SQRT 


EQUIVALENCE  (NB ITS, IDENT (5) ) ,  (NBDS, IDENT  (12) ) 
EQUIVALENCE  ( NP PL,  IDENT  (6)  )  ,  (HLIN ,  IDENT  (7)  ) 
EQUIVALENCE  ( NCCLS , IDENT ( 1 3) ) ,  (H ROWS, IDENT  (14) ) 
EQUIVALENCE  ( HO DE, IDENT  ( 19) ) 

EQUIVALENCE  ( NP PL2 , KDE NT (6) ) ,  (NLIN2, KDENT (7) ) 
EQUIVALENCE  { NCCL2 , KDENT  ( 13) ) ,  (NBOS2 ,  KDENT  ( 1 4)  ) 

DATA  NAME  /  'D*,  'P*,  'C*.  * H*  ,  *N',  'C',  ’S’  / 

CALL  KDPUSH (' DPCMN ' , '  C  * ) 

CHECK  .DAT  SLOTS 

IF  (INDAT. EQ. OTDAT2-OR. INDAT2. EQ. OTDAT2-  OR. 

1  OTDAT. EQ. OTDAT2)  GO  TO  9010 

IF  (  OTDAT2  -LT.  1  )  GO  TO  9050 
OPEN  INPUT  FILE 

CALL  HDKINL  (IN D AT , IN FIL , IDENT. 1 , IE V , 59 998) 

CALL  CLOSE  (  INDAT  ) 


OPEN  LOW  PASS  FILTER  FILE 

CALL  8DKINL  (  INDAT2,  LPFIL,  KDENT,  1,  IEV,  69998  ) 

CHECK  THAT  SIZE  OF  INPUT  FILES 
IS  THE  SAME 

IF  {  NPPL. NE. NPPL2.0R. NLIN. NE. NIIN2  )  GO  TC  9030 
IF  (  NCOLS. NE. NC0L2. OB. NB08S. NE. NBOW2  )  GO  TO  9040 


DO  1000  1=1,20 
JDENT  (I)  -*0 
1000  CONTINUE 


SET  UP  JDENT  ABRAT  FOR  OUTPUT  IMAGE 


JDENT  (5)  *  NBITS 
JDENT  (6)  =  NPPL 
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nnnn  non  non  nnnn  non  n  non  non  nnnn  non 


1010 


JDEMT  (7)  *  SLIM 

JDENT(IO)  =  MOMNAH (MNHREC)  ♦  NOHCHT  (NCHHEC)  ♦  2 

JDEMT  (13)  *  MCOLS 

JDEMT  (14)  *  NBOSS 

JDENT ( 17)  *  1 

JDEMT  (20)  *  1 


COPT  DBSCRIFTOB  BECORDS  TO  00TPUT  PILE 

CALL  BPTDSC  (INDAT,INFIL,OTDAT,OTFIL, JDENT, IEV ,69998) 

CHECK  *0*  PLAG  EEPOBE  GETTING  NEW  HOMBEB 
OF  BECOBDS 

NHEC=HRCHKO  (  MB EC,  IDENT) 

IBITE  NEB  NAME  BECOBDS 

CALL  NAHHEC  (  OTDAT,  NREC,  NAME,  JDEBT,  IEV,  S9998  ) 

SET  OP  PABAHETEB  BECOBD 


PABAH  ( 1)  =1 

DO  1010  1*2,20 
PARAH  (I)  =0 
CONTINUE 


MBITS  PABAHETEB  BECOBD 

CALL  HDSC20 (OTD AT, JDEMT, PAR AH, NBEC,IEV ,69998) 

POT  IN  THE  INFORMATION  FOB  THE  DESCBIPTOH 
BECOBD 


PARAH  (1)  *6 
PARAH  (2)  *BND 
PABAH  (3)  =BND2 
PABAH  (4) -HINBTS 
PABAH  (S)  *  SELECT 
PARAH  (6)  *BBFSZE 
PABAH  (7)  *TOTAL 


RBITE  OOT  THE  DESCBIPTOH  BECOBD 
CALL  BDSC20  (OTDAT, JDENT, PABAH, MHEC, IEV ,69998) 

MBITS  OOT  THE  COBHENT  DESCRIPTOR  RECORDS 
CALL  COHTMB  (OTDAT, JDENT, NBEC, IEY, 6999 8) 

ACTOAL  NOHBEB  CROUCHING 
COHPOTE  THE  NOHBEB  OF  BLOCKS  IN 
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n  o  o  n  r>  n  n  n  n  on  n  n  n  n  ono  nnn  on 


* 


INPUT  FILE  AND  THE  BLOCK  SIZE 

NBLCKS  =  ICEIL  <  NUN,  NHOWS  )  *IC£IL  (  NPPL,  NCOLS  ) 
BLKSZE  =  SHOWS*  NCOLS 

COHPOTE  POINTEBS  FOB  WORK  AREA 

PT1  =  1 

PT2  =  PT1  +  BLKSZE 
PT4  =  PT2  *  BLKSZE 

FIND  0PTI3AL  BIT  ALLOCATION 

CALL  OBIT  A L  (  0TDAT2,  FILNH ,  BBFSZE,  TOTAL,  HXNBTS, 

1  NBLCKS,  OBITAB  ) 

CHEATS  OUTPUT  FILE 


1 

1 

1 


1 

2 


1 

1  110 


DO  1110  I  =  1,  NBLCKS 

CALL  SREAD  (  INDAT,  WOHK(PTI),  BND,  I,  1,  IDENT, 

IE  V ,  S 9998  ) 

CALL  SREAD  {  INDAT2 ,  SORK  (PT2)  ,  BND2 ,  I,  1,  KDENT , 
IE7,  69998  ) 

CALL  HVAHDL  {  WORK  (PT1) ,  WORK  (PT2)  ,  DHEAN ,  DVAR , 
BLKSZE  ) 

NBTS  =  OBITAB  (I) 

CALL  DPCSEH  (  WORK(PTI),  WOBK(FT4),  WORK  (PT2)  ,  DWEAN, 
DVAR,  BLKSZE,  NCOLS,  NBTS,  FEAC, 

1ST,  SELECT,  ERROR  ) 

CALL  SB  RITE  (  OTDAT,  WORK  (PT4)  ,  1,  I,  1,  JDENT, 

IEV,  69998  ) 

CONTINUE 


8000  CONTINUE 


CALL  CLOSE  (INDAT) 
CALL  CLOS E  (INDAT 2) 
CALL  CLOSE (CTDAT) 
CALL  KDPOP 
RETURN 


A B  NO Bfl AL  CONDITIONS 


9010  CONTINUE 

LUNS  ARE  THE  SAKE 

IEV  =  -5009 
00  TO  9999 
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9030  CONTINUE 

§  INPOT  TILES  SOT  THE  SAHE  SIZE 

C 

IE?  *  -5021 
GO  TO  9999 
C 

9040  COHTINOE 

C  INPUT  PILES  NOT  THE  SAME  BICCK  SIZE 

C 

IEV  *  -5023 
GO  TO  9999 
C 

9050  CONTINOE 
C 

c  ILLEGAL  TILE  CODE 

C 

IET*-2001 
GO  TO  9999 

9998  CONTINOE 
C 

C 

c  HEAD  OB  SUITE  EHROR 

C 

CALI  CLOSE  (  INDAT  ) 

CALL  CLOSE  (  INDAT2  ) 

CALL  CLOSE  (  OTDAT  ) 

9999  BETORN  EBRET' 

C 

C 

END 
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— HVARDL  MEAN  AND  7ARIANCE  OF  A  LINE  OF  DIFFERENCES 

IDENTIFICATION 

TITLE 
AUTHOR 
VERSION 
DATE 
LANGUAGE 
SISTE/l 

PURPOSE 

THIS  ROUTINE  COMPUTES  THE  MEAN  AND  VARIANCE  OF  THE 
DIFFERENCE  OF  TRO  LINES  OP  INTEGER  DATA. 

ENTRY  POINT 

HVARDL  <  LINE1 ,  LINE2,  DHEAN,  DVAR,  NUHPPL  ) 
ARGUMENT  LISTING 


LINE  1 

INT 

FIRST  LINE  OF  DATA 

LINE2 

INT 

SECOND  LINE  OF  DATA 

DHEAN 

REAL 

MEAN  OF  THE  DIFFERENCE  LINE 

DVAR 

REAL 

VARIANCE  OF  THE  DIFFERENCE  LINE 

NUHPPL 

INT 

RUBBER  OF  POINTS  PER  LINE 

» 

#  ROUTINES  CALLED 

* 

»  NONE 


HVARDL 

OSCAR  A.  ZUNIGA 
A.  01 

AUGUST  31,  1978 

RATFOR 

PDP-15 


L=i 


$«****  ** >****** ***********************************************  ******** 
* 


SUBROUTINE  MVARDL  (  LINE1,  LINE2,  DHEAN,  DVAR,  NUHPPL  ) 


INTEGER  LINE1  (NUHPPL) ,  LINE2  (NUHPPL) 
REAL  DHEAN,  DVAR,  SUM,  SUM2 


SUM  =  0. 
SUM  2  =  0. 


DO  I»  1 ,  NUHPPL 

SUH  a  SUM  ♦  LINEI(I)  -  LINE2  (I) 
DHEAN  *  SUH/NUHPPL 


DO  I  =  1,  NUHPPL 

SUH2  *  SUH2  ♦  (LINE1  (I)  -LINE2  (I)  -DHEAN)  **2 
DVAR  =  SUM 2  /  NUHPPL 


RETURN 

END 
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n  o 


-OBITAL  OPTIMAL  BIT  ALLOCATION 

IDENTIFICATION 


TITLE 

AUTHOR 

VERSION 

DATE 

LANGUAGE 

SYSTEM 


OBITAL 

OSCAB  A.  ZUNIGA 
A*  01 

OCTOBEB  26,  1978 

POBTHAN 

POP- 15 


PURPOSE 


GIVEN  THE  PILE  HAHE  FOR„THE  DPCH  EBBOB  TABLE  THIS 
ROUTINE  RET DBMS  THE  OPTIHAL  BIT  ALLOCATION  TO  ALL 
BLOCKS  USING  OYBAHIC  PR0G8AHHING. 


ENTBY  POINT 


C 

OBITAL 

(  INDAT, 

FILNH,  BBFSZE,  TTOTAL,  NUHPOS, 

c 

NSTAGE, 

ALLCT  ) 

V, 

C 

c 

ABGUHENT  LISTING 

C 

INDAT 

I  NT 

INPUT  LOGICAL  UNIT  NUHEIB 

c 

FILNH 

I  NT 

SEQUENTIAL  FILE  NAHE  SHERE  DPCH  EBBOB 

c 

TABLE  IS  STORED 

C 

BBFSZE 

1ST 

BIT  BUFFER  SIZE 

c 

TTOTAL 

INT 

TOTAL  HUHBEB  OF  BITS  TC  EE  ALLOCATED 

c 

NUHPOS 

I  NT 

NOHBEB  OF  DIFFERENT  BITS  THAT  CAN  BE 

C 

ALLOCATED  TO  ANY  BLOCK 

c 

NSTAGE 

INT 

NUHBEB  OF  BLOCKS  IN  THE  IHAGE 

c 

ALLCT 

INT 

ABBAY  OF  SIZE  *  NUHBEB  OF  BLOCKS,  THAT 

c 

CONTAINS  THE  OPTIHAL  ALICCATION  TO  EACH 

c 

c 

BLOCK 

c 

p 

BOUTINES  CALLED 

V* 

c 

c 

BESALL 

BESOUBCE 

ALLOCATION  (USES  BCUTINE) 

£**«******************* *************************** ******************* 


SUBROUTINE  OBITAL  (  INDAT,  EILIB,  BBFSZE,  TTOTAL,  NUHPOS, 
1  NSTAGS,  ALLCT  ) 

DOUBLE  INTEGER  FILNH (2) 

INTEGER  ALLCT (NSTAGE) ,  TTOTAL,  BBFSZE,  OTTT ,  CTT2 ,  OTDAT 
INTEGER  RPOSS(IO),  P  (200)  ,  PHEIT(200) 

BEAL  F (200) ,  FNEXT  (200) ,  RVALUE  (10),  BC 
CO a BOB  /CONST/  FLABGE 
DATA  OTTT  /  13  / 

DATA  OTDAT,  OTTT,  OTT2  /  IN,  13,  16  / 


FLAfiGE  -  999999- 

CALL  FSTAT  (  ISDAT,  FILIH,  I  ) 

IP  {  I-NE.O  )  GO  TO  1000 
iBITE  (OTTT,6000)  FILNH 

6000  FORM  AT  <  II,  A5,  A4,  •  FILE  MOT  FOUND*  ) 

RETURN 

1000  COMTIMOE 

CALL  SEEK  (  IMD AT,  FILM M  ) 

READ  (INDAT)  MOMPOS,  MSTAGE 
BC  *  FLOAT (TTOTAL) /MSTAGE 

CALL  RES ALL  (  I MDAT,  OTDAT,  F,  P,  FMEXT,  PHIXT,  TTOTAL, 

1  RPOSS,  RVALUE,  HUHPOS,  ALLCT,  MSTAGE, 

2  BBISZE#  BC  ) 

iHITE  (OTT2,60 10)  (  ALLCT  (I) ,  1*1,  MSTAGE  ) 

6010  FORMAT  (  IX,  1015  ) 

CALL  CLOSE  (IMD AT) 

RETURN 
END 


BZSOUHCE  ALLOCATION 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BBS  ALL 


IDENTIFICATION 

TITLE 

AUTHOR 

VERSION 

OATS 

LANGUAGE 

SYSTEM 

SITE 


BBS  ALL 

BOBEBT  N  HABALICX 
1 

10/13/78  14:26 

FOBTBAN  IV  (V44-RSX/HULTI- ACCESS) 

PDP-15 

RSL-CBINC 

UNIVERSITY  OF  XANSAS, 

2291  IBVING  HILL  DBIVE, 

LAHBENCE,  KANSAS  66045. 

(913) -864-4836 


UPDATE  #  1 


AUTHOB 

DATE 

VERSION 

LANGUAGE 

PURPOSE 


OSCAR  A.  ZUNIGA 
DECEMBER  3,  1978 
£.01 

FORTBAN  IV 

MODIFIED  TO  ALLOW  BIT  BUFFER  HANDLING. 

TfO  PARAMETERS  HAVE  BEEN  ADDED  TO  THE 
ARGUMENT  LIST:  THE  EOFFEB  SIZE  (  BBFSZE  ) 
AND  THE  CHANNEL  CAPACITY  (  BC  ) . 


PURPOSE 

THIS  SUBROUTINE  ASSUMES  THERE  IS  AN  INPUT  FILE  ON  UNIT 
IN  WHICH  CONTAINS  THE  ALLOCATION  AND  BESOUBCE  TABLES  FOR 
EACH  STAGE.  IT  RETURNS  THE  ALLOCATION  WHICH  MINIMIZES  THE 
RESOURCE  VALUES 

ENTRY  POINT 

RES ALL (IN,OT,F,P,FNEXT,PNEXT,TCTAL,HPCSS,BVALUE,NUHPOS, 
ALLCT, NSTAGE, BBFSZE, BC) 

ARGUMENT  LISTING 


IN 

INT 

LOGICAL  UNIT  FOB  STAGE  ALLOCATION 
BESOUBCE  TABLES 

AMD 

OT 

INT 

LOGICAL  UNIT  FOR  TEMPORARY  TABLE 

F 

REAL 

PREVIOUS  COLUMN’S  RESOURCE  VALUES 

P 

INT 

PREVIOUS  COLUMN'S  ALLOCATIONS 

FNEXT 

BEAL 

NEXT  COLUMN'S  RESOURCE  VALUES 

PNEXT 

INT 

NEXT  COLUMN'S  ALLOCATIONS 

TOTAL 

INT 

TOTAL  ALLOCATION  POSSIBLE  FOB  ALL 
STAGES 

THE 

RPOSS 

INT 

ALLOCATION  TABLE  FOB  A  STAGE 

RVALUE 

REAL 

BESOUBCE  VALUES  FOR  A  STAGE 

NUHPOS 

INT 

NUMBER  OF  POSSIBLE  ALLOCATION  VALUES  FOR  A 
STAGE 

ALLCT 

INT 

OPTIMAL  ALLOCATION  TABLE  FOB  ALL  1 

5TAGES 
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c 

NSTAGE 

INT 

NOHBEB  CF  STAGES 

c 

BBFSZE 

INT 

BIT  BUFFER  SIZE 

c 

BC 

INT 

CHANNEL  CAPACITY 

c 

C  HARDWARE  REQUIRED 
C 

C  NOTHING  SPECIAL 

C 

C  ROUTINES  CALLED 
C 
C 
C 

c* ********************************************************* ********** 

c 

SUBROUTINE  RES  ALL  (IN ,01, P, P, FNEXT, PNEXT, TOT AL, RPOSS, RVALUE , 

1  NUHPOS  ,  ALLCT ,NSTAGE,BEFSZE,EC) 

C 

INTEGER  TOTAL, P  (TOTAL) , PNEXT  (TOTAL) ,RP0SS  (NUHPOS) 

INTEGER  ALLCT  (NSTAGE) 

INTEGER  TTOT AL,0T, THAI, TNI H,BBFS2E 

BEAL  FILNN  (2) ,F  (TOTAL) ,FNEXT  (TOTAL)  , RVALUE  (NUHPOS)  ,  BC 
DATA  FILMH/1 TEHPR  * , *  FLE '/ 

DEFINE  A  TEHPOBARY  RANDCH  FILE 

CALL  DEFINE (OT, TOT AL , NSTAGE, FILNH, IV , 0 , 0 , 0 ,IEV) 

READ  IN  THE  ALLOCATION  AND  RESOURCE  VALUE 
TABLES  FOB  THIS  STAGE 

BEAD  (IN)  (RPOSS  (L)  ,L-1, NUHPOS) 

READ  (IN)  (RVALUE  (L)  ,L»1,  NUHPOS) 

INITIALIZE  THE  FIRST  COLUHN 

CALL  FRSTCL  (F , P , TOTAL, R POSS, RVALUE , NUHPOS) 

WRITE  THE  FIRST  COLUHN  CUT 

WRITE  (OT  #1)  (?  (L)  ,L*1, TOTAL) 

DO  2  N=2, NSTAGE 

READ  IN  THE  ALLOCATION  AND  RESOURCE  VALUE 
TABLES  FOR  THE  NEXT  STAGE 

READ  (IN)  (RPOSS  (L)  ,L*1,  NUHPOS) 

READ  (IN)  (RVALUE  (L) ,L«1, NUHPOS) 

C 

THAI  *  (BBF5ZE+ 1)/2  ♦  (  ■  -  1  )  *BC 
THIN  »  -  (BBFSZ E+ 1) /2  ♦  (  N  -  1  } ♦BC  ♦  .9 
THAI  *  HINO  (  THAX,  TOTAL  ) 

THIN  *  HAXO  (  THIN,  0  ) 

C 
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GENESATE  THE  NEXT  COLOBH 

CALL  HEXTCL (P,TOTAL/HPOSS#HVALOE/HOHPOS»FNEXT/PHEXT/ 
1  THAX/THXN) 

DO  3  J*1, TOTAL 
3  F(J)*PH£XT{J) 

SHITE  THIS  COLUMN  OUT 

SHITE (OT#N)  (PNEXT(L) ,L*1. TOTAL) 

2  CONTINUE 

PI»D  THE  SBALLEST  BESOOHCB  VALUE 


TTOTAL* 1 
FSHALL»FNZXT<1) 

DO  4  1*1 , TOTAL 

IF  (PH EXT  (I)  •  GE.  FSNALL)  GO  TO  4 
FSHALL*FNEXT  (I) 

TTOTAL*I 
4  CONTINUE 

BACKSOLVE 


DO  5  1*1#  NSTAGE 
NsNSTAGE* 1 ~I 

BEAD  (OT#N)  (P(L)  #L*1 /TOTAL) 
ALLCT  (N)  *P  (TTOTAL) 
TTOTAL*TTOTAL-AlLCT (N) 

5  CONTINUE 

CALL  DLETE  (OT,FILNB) 


BETUBN 

END 
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C — FESTCL  INITIALIZE 

C 

C  IDENTIFICATION 
C  TITLE 

C  AUTHOR 

C  VERSION 

C  DATE 

C  LANGUAGE 

C  SYSTEM 

C  SITE 

C 
C 

c 
c 
c 

C  PUBPOSE 
C 

C  INITIALIZE  THE  FIRST  COLUMN  OF  THE  RESOURCE  ALLOCATION 

C  TABLES. 

C 

C  ENTRY  POINT 

C 

C  FRSTC1 (F, P,TOTAL,RPOSS, RVALUE , NUMPOS) 

C 

C  ARGUMENT  LISTING 
C 

C  F  REAL 

C  P  INT 

C  TOTAL  INT 

C  RPOSS  INT 

C 

C  RVALUE  REAL 

C 

C  NOHPOS  INT 

C 
C 

C  HARDWARE  REQUIRED 

C 

C  NOTHING  SPECIAL 

C 

C  ROUTINES  CALLED 
C 
C 

c 

c* ************************** *******  **************************** ****** 

C 

SUBROUTINE  FBSTCL  (F, P , TOTAL , RPCSS, RVALUE , NUH FOS) 

C 

INTEGER  PHIN, TOTAL, RPCSS  (NUHPOS) ,P (TOTAL) 

BEAL  F(TOTAL)  , RVALUE  (TOTAL) 

COMMON  /CONST/  FLARGE  j 

C  j 

DO  1  1*1, TOTAL 
F  (I) *PLARGE 


COLUMN  OF  RESOURCE  VALUES 
COLUMN  OF  ALLOCATIONS 

THE  MAXIMUM  TOTAL  RESOURCE  ALLOCATION 
POSSIBLE  RESOURCE  ALLOCATIONS  FOE  THE  FIRST 
STAGE 

VALUES  OF  ALLOCATED  RESOURCES  FOR  THE  FIRST 
STAGE 

NUMBER  OF  PCSSIELE  RESOURCE  ALLOCATIONS  FOR 
THE  FIRST  STAGE 


FRSTCL 

ROBERT  H  HARALICK 
1 

10/13/78  13:03 

FORTRAN  IV  {V44-HSX/HULTI- ACCESS) 

PDP-15 

HSL-CBINC 

UNIVERSITY  OF  KANSAS, 

2291  IRVING  HILL  DRIVE, 

LAHRENCE,  KANSAS  66045. 

<913)  -864-4836 
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c 


P(I)*0 

1  CONTINUE 


DO  2  I»1,NUHPOS 
C 

FaiN*H»lLOE(1) 

PBIH»BPOSS<1) 

C 

DO  3  J*  1 1 NUBPOS 

I?  (8POSS  (J)  .  GT.  8POSS  (I)  )  SO  TO 
I J (FBIH-  LT.  8  V  HOE  ( J)  )  GO  TO  3 
FHIN=8V  JLLDE  (J) 

P8IN*RPOSS(J) 

3  CONTINUE 

C 

II*8P0SS  (I) 

F(II)=yHIN 
P(II)»PaiN 
2  CONTINUE 
C 

RETUB N 
END 
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C — NBXTCL  BUILD  HEXT  COLUMN 

C 

C  IDENTIFICATION 
C  TITLE 

C  AUTHOR 

C  VERSION 

C  DATE 

C  LANGUAGE 

C  SISTEfl 

C  SITE 

C 

c 
c 
c 
c 

C  UPDATE  f  1 
C 

C  AUTHOB 

C  DATE 

C  VERSION 

C  LANGUAGE 

C  PURPOSE 

C 
C 
C 

c 
c 
c 
c 

C  PURPOSE 
C 

C  THIS  SUBROUTINE  TAKES  IB  THE  PREVIOUS  RESOURCE  VALUE  COLUHN 

C  AND  THJ  ALLOCATION  AND  RESOURCE  TABLES  FOR  THE  CDHBENT  STAGE 

C  AND  IT  CREATES  TBE  ALLOCATION  AND  BESOURCE  VALUE  COLUHNS 

C  FOR  THE  CURRENT  STAGE, 

C 

C  ENTRX  POINT 
C 

C  NEXT CL (F, TOTAL, RPOSS, RVALUE , NUHPOS ,FNEXT, PNIXT, 

C  THAI, THIN) 

C 

C  ARGUMENT  LISTING 
C 

C  F  REAL 

C  TOTAL  I NT 

C  RPOSS  INT 

C 

C  RVALUE  BEAL 

C 

C  NUHPOS  INT 

C 

C  FNEXT  BEAL 

C  PNEXT  INT 

C 


PREVIOUS  RESOURCE  VALUE  COLUHN 
NUMBER  OF  POSSIBLE  ALLOCATIONS 
TABLE  OF  POSSIBLE  ALLOCATIONS  FOB  THE 
CURRENT  STAGE 

CORRESPONDING  TABLE  OF  VALUES  RESULTING 
FROH  RESOURCE  ALLOCATIONS  IN  RPOSS 
NUHBER  OF  POSSIBLE  ALLOCATIONS  FOR  THE 
CURRENT  STAGE 

RESOURCE  VALUE  COLUHN  CREATED  AT  THIS  STAGE 
RESOURCE  ALLOCATION  COLUHN  CREATED  AT  THIS 
STAGE 


OSCAR  A.  ZUNIGA 
DECEMBER  3,  1978 
B.01 

FORTRAN  IV 

MODIFIED  TO  ALLOW  EUFFER  HANDLING. 
TWO  PARAMETERS  HAVE  BEEN  ADDED  TO 
THE  ARGUMENT  LIST:  THE  UPPER  CONS¬ 
TRAINT  (  THAI  )  TO  PREVENT  BUFFER 
OVERFLOW  AND  THE  LOWER  CONSTRAINT 
{  TMIN  )  TO  PREVENT  BUFFER  UNDER¬ 
FLOW 


N EXTOL 

ROBERT  H  HABALICK 
1 

10/13/78  13:49 

FORTRAN  IV  (744-RSX/H 0LTI- ACCESS) 

PDP-15 

RSL-CBINC 

UNIVERSITT  OF  KANSAS, 

2291  IRVING  HILL  DRIVE, 

LAWRENCE,  KANSAS  66045. 
(913)-864-4836 
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t — JC 


THAI 

INI 

OPPEB  CONSTRAINT;  THE  TOTAL  HAXIHOH  RESOURCES 
TO  BE  ALLOCATED  TO  ALL  THE  STAGES  PBEVIOOS 

TO  THE  CURRENT  ONE 

THIN 

INT 

LOVER 

CONSTRAINT 

HARDWARE 

8 SQUIBED 

NOTHING  SPECI1I 
ALGOBITHH 


THIS  SUBROUTINE  DOBS  ONE  STAGE  OF  DYNAHIC  FBCGHAHHING 
ROUTINES  CALLED 


*****  ****  *********************  *****************************  ********* 


SUBROUTINE  NEITCL (F, TOTAL, BPOSS, RV ALOE, NUMFCS, FNEXT, PNEXT, 

1  THAI, THIN) 

INTEGEB  TEST, PHIN , TOTAL* HPOSS  (NOHPOS) , PNEXT (NOHPOS) 

INTEGER  THAI,  THIN 

REAL  F (TOTAL)  ,RVAL0E (NUHPOS) ,FNEXT  (TOT AL) 

CO H HON  /CONST/  ILARGE 

DETEBHINE  EACH  ENTBI  IN  THE  FNEXT  AND 
PNEXT  COIUHN  OF  THE  ALLCCATION  TABLE 

DO  5  1*1, TOTAL 
FMIN*FLARGE 
PHIN-0 

GO  TH ROUGH  AIL  POSSIBLE  ALLOCATIONS 

DO  3  J=1, NOHPOS 

IF  AN  ALLOCATION  IS  GREATER  THAN  THE 
TOTAL  ALLOWED,  THEBE  IS  NO  HOPE 

IF (BPOSS  ( J) . GE. I)  GO  TO  3 

WE  THY  AN  ALLOCATION  OF  BPOSS  (J)  TO 
COBBENT  STAGE 

THIS  LEAVES  AN  ALLOCATION  OF  I-BPOSS  (J) 
TO  THE  PBEVIOOS  STAGES 

TEST*I-HPOSS  (J) 

C 

IF  (  TEST-GT. THAI  )  GO  TO  3 
IF  (  TEST. LT. THIN  )  GO  TO  3 
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C 

VAL UEP»F  (TEST) 

I?  THE  ALLOCATION  OF  TEST  HAS  POSSIBLE 
FOB  THE  PREVIOUS  STAGES,  VALUEP  HILL 
HOT  BE  EQUAL  TO  LARGE 

IF  (VAL0EP.EQ.F1ABGE)  GO  TO  3 

ALLOCATION  OF  FPOSS  (J)  TO  COBRENT  STAGE 
AND  TEST  TO  SOM  OF  ALL  PBEVIOOS  STAGES 
IS  OK.  THE  BESOLTING  TALOE  OF  THIS 
ALLOCATION  IS  ... 

GUI M=BV ALOE  (J) +VAL0EP 

COHPABE  THIS  VALUE  TO  THE  BEST 
.  PBEVIOOS  TRY 

IF(FMIN.LT.GHIN)  GO  TO  3 

IT  IS  BETTER 

FHIN=GHIN 
PHIN=HPOSS (J) 

3  CONTINUE 

C 

FNEXT  (I)=FHIN 
PNEXT  (I)  -PHIM 
5  CONTINOE 
C 

BETORN 

END 
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DPCSER 


OPCH  DATA  COMPRESSION  EHBOH 


OPCflEB 

OSCAB  A.  ZailGA 
AUGUST  15,  1978 
BATPOfi  (  XVH/BATFOR  V2A003  ) 

POP  -  15 
BSL  -  CHI  if  C 
UNIVERSITY  OP  KANSAS 
2291  IBVING  HILL  DBIVE 
LAURENCE,  KANSAS  66045 
(913)  -864-4836 

PUBPOSE 

THIS  SUBBOUTINZ  QUANTIZES  A  BLOCK  OF  DATA  USING  A 
BAX  QUANTIZES  AND  GENERATES  THE  CORRESPONDING  QUAN¬ 
TIZATION  TABLE.  A  DPCH  COMPRESSION  IS  THEN  APPLIED 
TO  THE  INPUT  BLOCK  GENERATING  AS  A  RESULT  A  BLOCK 
OF  OUTPUT.  FINALLY  THE  BBS  ERROR  BETNEEN  INPUT  AND 
OUTPUT  BLOCKS  IS  COHPUTED. 

ENTRY  POINT 

CALL  DPCBER  (  LNIN ,  LNOUT,  LNLPF,  LNflEAN,  LNVAR, 
NUMPPL,  NCOLS ,  KBITS,  FRAC,  1ST, 
SELECT,  ERBOB  ) 

ABGUHENT  LIST 


LNIN 

INT 

1-D  ABBAY  OF  SIZE  • NUBPPL'  TO 

STOBE  THE  INPUT  BLOCK  OP  DATA 

LNOUT 

INT 

1-D  ABBAY  OF  SIZE  • NUBPPL'  TO 

STOBE  THE  OUTPUT  BLOCK  OF  DATA 

LNLPF 

INT 

1-D  ARRAY  OF  SIZE  'NUBPPL*  TO 

STOBE  THE  CONVOLUTED  (  LOB  PASS  FILTERED  ) 
BLOCK  OF  DATA  USED  AS  A  PREDICTOR  FOR 

THE  INPUT  BLOCK. 

LNHEAN 

REAL 

THE  BEAN  OF  THE  DPCH  CORRECTIONS 

LNVAB 

BEAL 

THE  VARIANCE  OF  THE  DPCH  CORRECTIONS 

NUBPPL 

INT 

THE  SIZE  OF  THE  BLOCKS 

NCOLS 

INT 

THE  NUHBEB  OF  COLUHNS  IN  A  BLOCK 

OR  SUBIHAGE 

KBITS 

INT 

THE  NUHBEB  OF  BITS  USED  FOB  QUAN¬ 
TIZATION 

FRAC 

REAL 

THE  FRACTION  OF  STANDARD  DEVIATION 

THAT  RANGE  OF  DITBEB  SHOULD  BE  (  FOR 

2-D  DFCB  ) 

1ST 

DINT 

THE  SEED  FOR  RANDOM  NUMBER  GENERATION 

SELECT 

INT 

USED  TO  SELECT  DPCH  TECHNIQUE 
(  2  -  9  ) 

THE  RHS  ERROR  BETWEEN  INPUT  AND 


IDENTIFICATION 

TITLE 

AUTHOR 

DATE 

LANGUAGE 

SYSTEB 

SITE 


EBBOR  INT 


OUTPUT  BLOCKS 


HARDWARE  REQUIRED 
PDP  -  15 


SUBROUTINES  CALLED 


QTZSAM 

QUANTIZ.  END  POINTS 

S  HEANS 

USER 

LIBRARY 

DPCH2L 

2-DIMENSIONAL  DPCH 

USER 

LIBRARY 

DPCNXX 

MODIFIED  DPCH  (  2-D 

DPCH 

USER 

LIBRARY 

BHSEBR 

USING  FUTURE  VALUES 
CONVOLUTED  IMAGE  ) 
RMS  ERROR 

FROM 

USER 

LIBRARY 

*****  ************************************************************* 


SUBROUTINE  DPCHER  (  LNIN,  LNOUT,  LNLPF ,  LNHEAN,  LNVAR, 

NUMPPL,  NCOLS ,  MBITS,  FHAC,  1ST, 
SELECT,  ERROR  ) 

* 

#  TTPE  STATEMENTS 

* 

IMPLICIT  INTEGER  {  A  -  Z  ) 

DOUBLE  INTEGER  1ST 

INTEGER  LNIN (NU  HPPL)  ,  LNOUT  (NUHPPL)  ,  LNLPF ( NUMPPL) 
INTEGER  QTAELE  (512) 

INTEGER  9GTS2  (4)  ,  «GTS4 (4)  ,  iGTS6(4),  BGTS8  (4) 

INTEGER  WGTS5  (3,3)  ,  HGTS7{3,3) 

REAL  QENDS  (65) ,  QUEANS  (64)  ,  ERROR,  LNHEAN,  LNVAR 
REAL  RANGE,  FRAC,  SQRT 
DATA  MAX  /255/ 

DATA  WGTS2  /4*1/ 

DATA  HGTS4  /  49,  49,  70,  70  / 

DATA  WGTS 5./ 100, 70, 100,70,49,70, 100,70,100/ 

DATA  SGTS6  /  -1,  0,  1,  2  / 

DATA  WGTS7  /  9*1  / 

DATA  SGTS8  /  -7,  6,  20,  35  / 

# 

*  INITIALIZATIONS 

i 

NLE7LS  =  2**NBIIS 

* 

•  COMPUTE  THE  END  POINTS  AND  MEANS  USING 

*  MAI  QUANTIZER 

CALL  QTZSAM  (  LNHEAN,  LNVAR,  MBITS,  QENDS,  QMEANS  ) 


QENDS  (1)  *  -HAX  -  1 
QENDS  (MLEYLS  +  1)  *  HAX 


COBPOTE  SIZE  OF  QOANTIZING  TAELE 
STABLE  *  2*HAX  ♦  1 

COBPOTE  THE  QOASTIZING  TABLE 
POl  {  J  *  1;  J  <*  NLEVLS ;  J  »  J  »  1  ) 

K 

LOHEND  a  QEMDS(J)  ♦  BAX  ♦  2 

OPPEND  «  QESDS  (J*1)  ♦  BAX  ♦  1 

FOB  (  I  ■  LOSEND;  I  <■  OPPEHD;  I  »  I  ♦  1  ) 

S  < 

QTABLE  (I)  *  IBOUND (QBE ASS (J)  ) 

S) 


COBPOTE  THE  LISE  OF  OOTPOT 

IF  (  SELECT  *»  3  )  SELECT  »  7 
IF  (  SELECT  *■  9  )  SELECT  *  5 


FOB  (I  »  1;  I  <=  NCOLS ;  I  »  I  ♦  t  ) 

S( 

LNOOT(I)  »  LHIH  (I) 

*) 

BANGS  a  FHAC*SQBT(LN7AR) 

PB7LN  »  1 

NXTLN  a  2*HCOIS  «■  1 

FSTLN  a  NCOLS  ♦  1 

LSTLN  a  NOBPPL  -  NCOLS  ♦  1 

IF  (  SELECTaa2  |  SELZCT»a4  |  SBL£CT»»6  |  SELECTaaS  ) 
FOB  (  COBLN  a  FSTLN;  COBLN  <*  LSTLN; 

COBLN  *  COBLN  ♦  NCOLS  ) 

J  ( 

IF  (  SELECT **2  ) 

CALL  OPCB2L  (  LNIN  (COBLN) ,  NOBPPL,  LNOOT  (PB7LN)  , 
LNOUT (COBLN) ,  QTABLE,  STABLE,  BAX, 
BANGS,  1ST,  NGTS2,  NGEN,  HOSED  ) 

IF  (  SELZCTa»4  } 

CALL  DPCB2L  (  LNIN  (COBLN),  NOBPPL,  LNOOT  (PB7LN)  , 
LNOOT  (COBLN) ,  QTABLE,  STABLE,  BAX, 
BANGE,  1ST,  HGTS4,  NGEN,  NOSED  ) 

IF  (  SELECT*»6  ) 

CALL  CPCB2L  (  LNIN  (COBLN),  NOBPPL,  LNOOT  (PB7LN)  , 
LNOOT  (COBLN) ,  QTABLE,  NTABLE,  BAX, 
BANGE,  1ST,  BGTS6,  NGEN,  NOSED  ) 

IF  (  SELECT*a8  ) 

CALL  DPCB2L  (  LSI N (COBLN) ,  NOBPPL,  LNOOT  (PB7LN) , 
LNOOT  (COBLN) ,  QTABLE,  NTABLE,  RAX, 


RANGE,  1ST,  WGTS8 ,  NGEN,  NUSED  ) 

PBVLN  *  COBIN 

S) 

IP  (  SELECT**5  |  SELECT**  7  ) 

FOR  (  C0R1N  *  PSTLN ;  CUBLN  <*  LSTLH; 

CUBLN  *  CUBLN  ♦  NCOLS  ) 

S{ 

IP  (  SZLECT**5  ) 

CALX  DPCM XX  (  LNIN  (CUBLN) ,  NUMPPL,  LNLPP (CUBLN) , 

LNLPP (NXTLN) ,  LNOUT (PBVLN) ,  LNOUT  (CUBLN) 
QTABLZ,  STABLE,  BAX,  BANGE,  1ST,  WGTS5 , 
NGEN,  NOSED  ) 

IP  (  SELECT** 7  ) 

CALL  DPCMXX  (  LNIN (CUBLN) ,  NUHPPL,  LNLPP  (CUBLN)  , 

LNLPP  (MXTLN)  ,  LNOOT ( FBVLN) ,  LNOUT  (CUBLN) 
QTABLE,  NTABLE,  MAX,  BANGE,  1ST,  NGTS7, 
NGEN,  NOSED  ) 

PBVLN  =  CUBLN 

NXTLN  *  NXTLN  ♦  NCOLS 

NXTLN  =  MINO  (  NXTLN,  LST1N  ) 


COMPUTE  THE  BBS  EBBOB 


C--QTZSAM  BIZ  QUANTIZATION  END  POINTS  ANC  BEANS 

C 

C  IDENTIFICATION 
C 


c 

TITLE 

QTZSAB 

c 

AUTHOR 

SAB  SHANBUGAB 

c 

VERSION 

A.  01 

c 

DATE 

OCTOBER  6,  1973 

c 

LANGUAGE 

FORTRAN 

c 

c • 

SYSTEH 

PDP-15 

c 

UPDATE  #  1 

L 

c 

AUTHOR 

OSCAR  A.  ZUNIGA 

c 

DATE 

NOVEflBEB  7,  1978 

c 

VERSION 

B.01 

c 

LANGUAGE 

FORTRAN  IV 

c 

PURPOSE 

DOC 0 BEIT ATIOH  CHANGED  TO  SYSTEM 

c 

STANDARDS. 

c 

PURPOSE 

L 

c 

GIVEN  THE  NUMBER  OF  EITS,  THIS  ROUTINE  RETURNS  THE  UPPER 

c 

r 

BOUNDARIES  AND 

THE  BEANS  OF  A  SAX  QUANTIZER. 

V, 

c 

ENTRY  POINT 

c 

QTZSAB  (  XDHEAN 

,  XDVAR,  NBIT,  QENDS,  QMEANS  ) 

V* 

c 

r • 

ARGUMENT  LISTING 

U 

c 

XDHEAN  REAL 

BEAN  OF  THE  DISTRIBUTION 

c 

XDVAR  REAL 

VASIANCE  OF  THE  DISTRIBUTION 

c 

NBIT  INT 

NUMBER  OF  BITS  AVAILABLE  (  <»  6  ) 

c 

QENDS  REAL 

THE  2**NBIT*1  END  POINTS 

c 

QMEANS  REAL 

THE  2**NBIT  MEANS 

L 

c 

ALGORITHM 

V. 

c 

LET  X  (1)  ,  X  (2)  , 

..,  X  (N*  1)  ,  AND  Y  (1)  ,...  ,  Y  (N)  BE  THE 

c 

THE  QUANTIZER  END  POINTS  AND  BEANS,  IE.  IF  THE  VARIA¬ 

c 

BLE  BEING  QUANTIZED  HAS  A  VALUE  IN  THE  RANGE  OF  X (J) 

c 

TO  X(J*1),  THEN 

THE  QUANTIZES  OUTPUT  HILL  EE  EQUAL 

c 

TO  Y(J).  THE  FIRST  AND  LAST  END  POINTS  ARE  USUALLY 

c 

CHOSEN  TO  BE  - 

AND  ♦  INFINITE  RESPECTIVELY.  THE  REBAI- 

c 

RING  X(J)  'S  AND 

Y(J)*S  ARE  CHOSEN  BY  BINIBIZING  THE 

C  BEAN  SQUARE  ERROR. 

C 

C  D  »  E  <  (XIN-XOUT) **2  ) 

C 
C 
C 
C 
C 


WHERE  E  STANDS  FOR  THE  EXPECTED  VALUE,  XIN  IS  THE  IN 
PUT  TO  THE  QUANTIZER,  AND  XOUT  IS  THE  OUTPUT  OF  THE 
QUANTIZER.  THE  SOLUTION  TO  THIS  PEOBLEB  IS  GIVEN  BT: 


ono  n  n  n  no  nonno 


C  (1)  T  (J)  a  2*X  (J)  -  Y(J-1)  J  »  2,  3,..,.,  N 

C 

C  (2)  INTEGRAL  {  (Z-Y  (J) )  **2*P  (2)  )  *  0,  J  -  2,...,  N 

C 

C  P(.j  IS  THE  PROBABILITY  DENSITY  FUNCTION  OF  THE  INPUT 

C  SIGNAL.  EQUATIONS  1  AMD  2  ARE  VALID  FOB  ANY  EISTBIBOT- 

C  ION.  FOR  NORHAL  (0, 1 )  DISTRIBUTION  THE  VALUES  OF  THE 

C  ENDPOINTS  AND  HEANS  AR2  SHOWN  TABULATED  IN  REFERENCES 

C  1  AND  2..  THIS  SUBROUTINE  OSES  THESE  TABLES. 

C 

C  ROUTINES  CALLED 
C 

C  NONE 

C 

C  BEHARKS 
C 

C  REFERENCES: 

C  1.  J.  BAY,  QUANTIZING  FOB  HINIHDH  DISTORTION,  IEEE 

C  TRANSACTIONS  OH  INFORHATION  THEORY,  1960,  PP  7-13. 

C  2.  P.  A.  HINTZ  AND  A.  J.  KUBTENEACH,  ANALYSIS  OF  PCS 

C  TELEMETRY  SYSTEMS,  PURDUE  UNIVERSITY  TECH.  REPORT, 

C  TR-EE--67--19,  DEC  1967. 

C 

C 

C* ****  **** *************** ************* ***************************** 


SUBROUTINE  QTZSAM  (XDM£AN,XDVAR,NBIT, QENDS, QREANS) 

SET  UP  ARRAYS  AND  TABLES 

DIMENSION  XI  (1)  ,Y1  (1)  ,X2  (2)  ,Y2  (2) 

DIMENSION  X3(4)  ,Y3{4)  ,X4(8)  ,Y4(8)  ,X5{16)  ,15(16) 
DIMENSION  X6  (32)  ,  Y6  (32)  ,  X7  (64)  ,Y7(64)  ,18(128)  ,Y8(128) 
DIMENSION  QENDS (65) ,QHEaNS  (64) 


DATA  X1/0.0/, Y1/0.7980/ 

DATA  12/0.0,0.9816/, Y2/0. 4528, 1.510/ 

DATA  X3/0. 0,0.  5006, 1.050 , 1 . 748/, Y3/0. 245 1 , 0. 7560 , 1.  344, 2.  152/ 

DATA  X4/0. 0,0. 2582,0.5224,0.7996, 1.099, 1.437,1.844, 

*2.401/ 

DATA  Y4/0.  1284,0.  3881,0.6568,  0.9424,  1.256,  1.618, 

*2.069,2.733/ 

DATA  X5/0. 0,0. 1 320, 0. 2 648 , 0. 3991 , 0. 535 1 , 0. 676 1 ,0. 82 10 , 
*0.9718,  1.  130,  1.2  99,1.482,  1.682,1.908,2.  174,2.505,2.977/, 

*  15/0.0659,0. 198  1,0.3314,0.4668,0.6050,0.7473,0.8947, 

*1.049,1.212, 1-387,1.  577,  1. 788 , 2.  029,  2.3  1 9, 2- 6 9 2, 3- 263/ 


COMPUTE  THE  STANDARD  DEVIATION 
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n  n  n  n  n  onnnn 


XSD»SQBT(XDVAB) 

NN>2**  (MBIT*  1) 

NNN»2*NN*1 
NNX*PLOAT(2*NN) 

STEP*6. 0/NNX 

PICK  OP  THE  APPBOPBIATE  ENTBIES  PBOH  THE 
TABLES  AND  STICK  THEB  IN  QENDS  QNO  QHEANS 
ADJUST  POB  BEAN  AND  ATANDABO  DEVIATION. 

DO  10  I»1,NN 

GO  TO  (1,2,3, 4, 5,6,7)  ,  NBIT 

1  2fHI=MN+I 
QENDS (NNI) *X 1 (I) *XSD+XDHEAN 
QHEANS  (NNI)  *7  1  (I)  *XSD+XDHEAN 

•GO  TO  9 

2  NNI=NN+I 
QENDS  (NNI) *12 (I) *XSD+XDHEAN 
QHEANS (NNI) >12 (I)  *XSD*XDHEAN 

GO  TO  9 

3  HNI-NN*I 
QENDS  (NNI)  =13  (I)  *XSD+XDHEAH 
QHEANS (NNI) >13  (I) ♦XSD*XDHEAN 

GO  TO  9 

4  NNI»NN*I 
QENDS  (NNI)  *X4  (I)  *XSD+XDHEAN 
QHEANS (NNI) *T4  (I) *XSD*XDHEAN 

GO  TO  9 

5  NNI»NN*I 
QENDS  (NNI)  >XS  (I)  *XSD+XDHEAN 
QHEANS (NNI) >Y5  (I) *XSD+XDHEAN 

GO  TO  9 

6  NNI*NN*I 

QENDS (NNI) > (1-1) *STEP*XSD+XDHBAN 
QHEANS  (NNI)  >  (1-0.  5)  *STEP*XSD-*XDHEAN 
GO  TO  9 

7  NNI*NN*I 
QENDS (NNI) =X7  (I) *XSD*XDHEAB 
QHEANS (NNI) *X7  (I) *XSD*XDHEAN 

GO  TO  9 

8  NNI»NN+I 
QENDS  (NNI)  »X8  (I)  ♦XSD+XDHEAN 
QHEANS (NNI) >78  (I) *XSD+XDH£AH 

9  CONTINUE 

10  CONTINUE 

SET  UP  END  POINTS  AND  HZANS  ON  THE  LOWEB 
SIDE  OP  THE  BEAN. 

NNH«NN-1 
N  HI  D*  N  N  ♦  1 
C 

DO  12  I*  1,NNB 


190 


n  o 


PC 


C 


H 1*MHID+I 
N2=NMID-I 

QENDS  (M2)  =  QENDS  (Ml)  *  (-1.0)  ♦  2.0  *  QENDS  (  NHID  ) 
CONTINUE 


PI8ST  AND  LAST  END  POINTS  ABE  -  AND  ♦ 
Cl  INPINITT  RESPECTIVE! I) 

C 

QENDS  (1) *-0.  1E*6 
QENDS  (NNN) =0. 1E*6 
C 

DO  13  1=1, NN 
C 

I1=NNN-I 

QUEANS  (I)  =  Q MEANS  (11}  *(-1.0)  ♦  2-0  *  QENDS  (  NHID  ) 

C 

13  CONTINUE 
C 

RETURN 

END 
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O  n 


C— DPCM1L  ONE  DIMENSIONAL  DPCH 

C 

C  IDENTIFICATION 
C 


c 

TITLE 

DPCH 11 

c 

AUTHOR 

ROBERT  B.  HARALICK 

c 

VERSION 

A.  02 

c 

DATE 

HABCB  1977 

c 

LANGUAGE 

FORTRAN 

c 

SYSTBfl 

PDP-15 

v» 

c 

PURPOSE 

c 

THIS  SUBROUTINE  INPUTS  ONE  LINE  OP  DATA  ARE  COES  A 

c 

SIMPLE  FIRST 

ORDER  PREDICTOR  ORE  DIBEHSIONAL  DPCH. 

c 

c 

f* 

ENTRY  POINT 

c 

DPCH1L  (  LNIN 

,  NUHPPL,  LNOUT,  QTABLE,  NTABLE,  HAX , 

c 

NGEN 

,  NUSED  ) 

L 

c 

ARGUMENT  LISTING 

, 

L 

c 

LNIN  INT 

INPUT  LINE 

c 

NUHPPL  INT 

DIMENSION  OF  INPUT  LINE 

c 

LNOUT  INT 

OUTPUT  LINE 

c 

QTABIE  INT 

QUANTIZING  TABLE 

c 

NTABLE  INT 

DIMENSION  OF  QUANTIZING  TABLE 

c 

BAX  INT 

MAXIMUM  VALUE  OF  DATA 

c 

NGEN  INT 

NUMBER  OF  OUTPUT  RECORDS  GENERATED 

c 

p 

NUSED  INT 

NUMBER  OF  INPUT  RECORDS  USED  (=1) 

c 

c 

ROUTINES  CALLED 

C 

C  NONE 

C 

C 

£**«** *************************** ******* *************** ******** 


SUBROUTINE  EPCH1l(  ININ,  NUHPPL,  LNOUT,  QTAEIE,  NTABLE, 
2  Nil,  N6EN,  NUSEO  ) 

C 

INTEGER  LNIN(NUBPPL) , LNOUT  {NUHPPL)  ,QTABLE (NTABLE) 

C 

H  AX  1=1  ♦BAX 
LNOUT  (1)  «LNIN  (1) 

C 

DO  1  1=2, SUSP  PL 

IDIF-LNIN (I) -LNOUT (1-1) ♦BAX  1 

LNOUT (I) «QTABLE  (IDIF) ♦LNOUT  (1-1) 

LNOUT (I)  =  BAXO  (  0,  LNOUT (I)  } 

1  CONTINUE 
C 
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NGEN* 1 
NUSED* 1 


BE7DRN 

END 
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C--DPCH2L  TWO  DIMENSIONAL  DPCH 

C 

C  IDENTIFICATION 
C 

C  TITLE 

C  AOTHOB 

C  VERSION 

C  DATE 

C  LANGUAGE 

C  STSTEH 

C 

C  UPDATE  #  1 
C 

C  AUTHOB 

C  DATE 

C  VERSION 

C  LANGUAGE 

C  PUHPOSE 

C 

c 
c 

C  PUHPOSE 

c 

C  THIS  SUBHOUTINE  IHPLEHENTS  A  SIMPLE  TWO  DIMENSIONAL 


C 

c 

LINEAR 

FOURTH 

ORDER 

DPCH  FOB  A  LINE  OF  DATA 

w 

C 

r» 

ENTRY  POINT 

' 

U 

c 

DPCH2L 

(  LNIN, 

NUHPPL,  LNPOUT,  LNOUT,  STABLE,  NTABLE, 

c 

HA  X, 

RANGE 

,  1ST,  WT,  NGEN,  NUSED  ) 

V. 

C 

r* 

ARGUMENT  LISTING 

v- 

C 

LNIN 

INT 

INPUT  LINE  OF  DATA 

C 

NUHPPL 

INT 

NUMBER  OF  VALUES  IN  INFUT  LINE 

c 

LNPOUT 

INT 

PREVIOUS  OUTPUT  LINE 

c 

LNOOT 

INT 

CURHENT  OUTPUT  LINE 

c 

QT ABLE 

INT 

QUANTIZING  TABLE 

c 

QTABLE (IDIF)  GIVES  THE  RECONSTRUCTED 

c 

VALUE  FOR  ANY  DIFFERENCE  OF  VALUE  IDIF 

c 

NTABLE 

INT 

LENGTH  OF  QUANTIZING  TABLE 

c 

MAX 

INT 

HAXIHUH  VALUE  OF  AN  INFUT 

c 

RANGE 

BEAL 

RANGE  OF  UNIFORMLY  DISTRIBUTED  DITHER 

c 

1ST 

DINT 

RANDOM  NUHBEB  GENERATOR  SEED 

c 

WT 

INT 

WEIGHTS  FOR  COMPUTING  PREDICTOR 

c 

NGEN 

INT 

NUHBEB  OF  OUTPUT  RECORDS  GENERATED 

c 

BUSED 

INT 

NUMBER  OF  INPUT  RECORDS  USED 

C 

C  INTERNAL  VARIABLES 
C 
C 
C 

c 
c 


OSCAB  A.  ZUNIGA 
OCTOBER  10,  1978 
B.  01 

FORTRAN  IV 

THE  ARRAY  WT  HAS  BEEN  ADDED  TO  THE 
ARGUMENT  LIST  TO  COHPOTB  THE  DPCH 
PREDICTOR  USING  A  BBIRTED  AVERAGE 


DPCH2L 

BOBSRT  H-  BABALICK 
A.  01 

MARCH  1977 

FORTRAN 

PDP-15 


IPRED  INT 


PBEDICTED  VALUE,  COMPUTED  FB03  SUH  OF 
THE  FOUB  NEABEST  NEIGHECBS  ABOVE  AND  TO 
THE  LEFT  OF  THE  CURRENT  (C,D,E,R): 


1 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 

c 


A  B  C  D  E  P  .  .  .  (  PREVIOUS  LINE  ) 

P  Q  B  S  (  CURRENT  LINE,  COL  S 


ROUTINES  CALLED 


HAXO  MAXIMUM  OP  A  SET  OP  INTEGERS 
IROUND  ROUND  OPP  TO  NEAREST  INTEGER 
MINO  MINIMUM  OF  A  SET  OF  INTEGERS 
RCfl  UNIFORM  RANDOM  NUMBER  GENERATOR 


(  SYSTEM  ) 
(  USER  ) 

(  SYSTEM  ) 
(  SYSTEM  ) 


**** *****  ********************************************************** 


SUBROUTINE  DPCM2L{  LNIN,  NUHPPL,  LNPOUT,  LNOUT,  QTABLE, 

2  NTABLE,  MAX, RANGE, 1ST,  NT , NGEN ,  MUSED  ) 


DOUBLE  INTEGER  1ST 

INTEGER  LNIN (NUHPPL)  , LNPOUT  (NUMPPL)  .LNOUT  (NUHPPL) 
INTEGER  QTABLE  (NTABLE) ,  NT  (4) ,  DPCSUH 
C 

NRML2F  =  NT  ( 1 )  *  NT  (2)  ♦  NT  (3)  *  NT  (4) 

IPND  =  NRML2P/2 
C 

MAX  1=  1  +  HA  X 
LNOUT  (1)  =  LNIN  (1) 

C 


DO  1  1=2 , NU  HP  PL 

DITHER=  (RCM  (1ST)-,  5)  *RANGE 

IDTHH=IROUND (DITHER) 

J=MIN0  (1+1,  NUMPPL) 

DPCSUM=LN POUT  (1-1)  *NT  (1)  +LNPOUT  (I)  *NT  (2)  +LNPOUT  (J)  *ST  (3)  + 
1  LNOUT  (1-1)  *WT  (4) 

IP  R  ED= (DPCSUH+IHND) /NBMLZP 
IDI P=LNIN (I) -IPRED+MAX1 + IDT HR 
IDIF=HAX0 (IDIP,  1) 

IDIP=MIN0 (IDIP, NTABLE) 

LNOUT  (I)  =IPR ED  +  QT ABLE  (IDIP)  -IDTHR 
LNOUT  (I)  =MAX0  (LNOUT  (I)  ,0) 

1  CONTINUE 


NGEN  =  1 
NUSED  =  1 

HETORN 

END 
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f 


c- 

-dpchix 

MODIFIED  DPCH 

L 

c 

r 

IDENTIFICATION 

L 

c 

TITLE 

DPCHXX 

c 

AUTHOR 

GZ  BONAGHAN 

c 

VERSION 

A.  0 1 

c 

DATE 

MARCH  31,  1977 

c 

LANGUAGE 

FORTRAN 

c 

r 

STSTEH 

PDP-15 

c 

/•* 

PURPOSE 

v» 

c 

THIS  SUBROUTINE 

FORMS  A  PREDICTOR  FROM  THE  FOUR 

c 

NEAREST 

PREVIOUS  DPCB  VALUES  PLUS  THE  FIVE  REM- 

c 

AIMING 

NEAREST 

LON  PASS  FILTERED  VALUES. 

V- 

c 

ENTRY  POINT 

c 

DPCHXX 

{  LNIN , 

NUHPPL,  LNLPF,  LNXTLP,  LNPOUT,  LNOUT, 

c 

QTABLE 

,  NTABLE,  MAX,  RANGE,  1ST,  NT,  NGEN, 

c 

r* 

NUSED 

) 

L 

c 

r 

ARGUMENT  LISTING 

L 

c 

LNIN 

INT 

INPUT  LINE  OF  DATA 

c 

NUHPPL 

I  NT 

NUMBER  OF  POINT  PEB  INPUT/OUTPUT  LINE 

c 

LSLPF 

INT 

CURRENT  LON  PASS  FILTERED  LINE 

c 

LNXTLP 

INT 

NEXT  LON  PASS  FIXTEBED  LINE 

c 

LNPOUT 

INT 

PREVIOUS  OUTPUT  LINE 

c 

LNOUT 

INT 

CUHBENT  OUTPUT  LINE 

c 

QTABLE 

INT 

QUANTIZING  TABLE 

c 

QTABLE (IDIF)  GIVES  THE  RECONSTRUCTED  VALUE 

c 

FOB  ANY  DIFFERENCE  OF  VALUE  IDIF 

c 

NT  ABLE 

INT 

DIMENSION  OF  QTABLE 

c 

MAX 

INT 

MAXIMUM  VALUE  OF  ANY  INPUT  LINE 

c 

RANGE 

REAL 

RANGE  OF  DITHEB 

c 

1ST 

DINT 

SEED  OF  BANDOH  NUMBER  GENERATOR 

c 

NT 

INT 

3X3  ARRAY  OF  NEIGHTS  TC  USE  WHEN  SUMMING 

c 

PREVIOUS  DPCH  *  D  AND  NEXT  BATA  POINTS  WITH 

c 

CURRENT  DATA  POINT 

c 

NGEN 

INT 

NUMBER  OF  OUTPUT  RECORDS  GENERATED  (»1) 

c 

NUSED 

INT 

NUMBER  OF  INPUT  RECORDS  USED  (*1) 

c 

r* 

INTEBNAL  VARIABLES 

U 

c 

DPCSUH 

INT 

WEIGHTED  SUM  OF  3  NEAREST  NEIGHBORS  ON 

c 

PREVIOUS  DPCH  LINE 

c 

ITSUB 

INT 

WEIGHTED  SUM  OF  LAST  DPCH,  CURRENT  AND 

c 

NEXT  INPUT  POINTS 

c 

NXTSUH 

INT 

WEIGHTED  SUM  OF  3  NEAREST  NEIGHBORS  ON 

c 

NEXT  INPUT  LINE 

c 

IPRED 

INT 

PREDICTED  VALUE,  COMPUTED  FROM  DPCSUH* 

c 

ITSUH*N  XTSUH 
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on  n  n  noon  non 


"W 


•w 


c 

c 

c 

c 

c 

c 

c 

c 

c 


ROUTINES  CALLED 

NINO  aXBIflUB  OF  A  SET  OF  ZNTESEBS 

NATO  N AIJMOH  OF  A  SET  OF  INTEGERS 

IROUND  ROUND  OFF  TO  NEAREST  INTEGER 
RCN  UNIFORN  RANDOM  NUMBER  GENERATOR 


(STSTEH) 

(STSTEB) 

(USER) 

(SYSTEM) 


£*«***  ************************************************ ************* 


c 

c 


2 

3 


C 


c — 


c 


c 


1 


SUBROUTINE  DPCHXI  (  ININ,  NUMFPL,  LNLPF,  LNXTLP,  LNPOUT, 

LNOUT,  QTABLE,  STABLE,  BAX,  RANGE, 
1ST,  IT,  NGEN,  MUSED  ) 

DOUBLE  INTEGER  1ST 

INTEGER  LNOUT  (NUMPPL)  ,  CTABLE  (NT ABLE)  ,  LNLPF  (NUNPPL) 
INTEGER  LNIN (NUHPPL) ,  LNXTLP  (NUNPPL) ,  LNPOUT  (NUNPPL) 
INTEGER  IT  (  3,  3  ),  DPCSUH 

HAXP1  *  H AX  ♦  1 
NNPLH1  =  NUHPPL  -  1 
NRHL2F  =  0 

DO  1  1*1, 3 
DO  1  J=  1 , 3 

NRMLZF  =  NRHL2F  ♦  »T(I,J) 

CONTINUE 

IRND  =  NRHLZF/2 


DO  1ST  AND  LAST  DPCH*S  SPECIALLY 

LNOUT  ( 1)  =  LNIN  (1) 

LNOUT (NUNPPL)  *  LNIN  (NUHPPL) 

NOW  DO  THE  HEST  OF  THE  LINE 

DO  1000  1-2, NUNPPL 

INI  *  1-1 

IP1  =  NINO  (  1*1,  NUHPPL  ) 

DITHER*  (RCN  (1ST)-. 5)  *RA NGE 
IDTRR=IROUN D  (DITHER) 


DPCSUH  *  LNPOUT  (Ifll) *WT (1, 1)  ♦  LNPOUT (I) *IT ( 1 , 2)  ♦ 
2  LNPOUT  (IP  1 )  *IT  (1,3) 

ITSUM  *  LNOUT  (INI)  *WT  (2,  1)  ♦  LNLPF  (I)  *  IT  (2, 2)  ♦ 

2  LNLPF  (IP1)  * IT (2,3) 

NXTSUH  *  LNXTLP  (IHl)  *WT  (3,  1)  ♦  LNXTLP (I) *WT  (3, 2)  ♦ 
2  LNXTLP  (IP  1)  *WT  (3,  3) 
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"T-T 


C 


c 

1000 

c 


c 


IPHED  *  (DPCSUN  ♦  ITSOM  ♦  NXTSOR  ♦  IRND) /NBHLZF 
IDIP  3  LNIN(I)  -  IPHED  ♦  fl AXP1 ♦IDTHR 
IOIP*BAXO (1 

IDXP-BIHO  (NTAB1E,IDI*> 

LHOOT(I)  *  IPBED  ♦  QTABLE  (IDXF)  -rDTHR 
LNOOT(I)  *  BAXO  (iNOUT  (I)  #0) 


CONTINUE 


N6EN  3  1 
NOSED  3  1 


RETURN 

END 
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RMSERB 


BOOT  HEIN  SQUABS  EBBOB 


IDENTIFICATION 

TITLE 

BHSEBR 

AUTHOR 

OSCAR  A.  ZUNIGA 

VERSION 

A.  01 

DATE 

SEPTEMBER  29,  1 

LANGUAGE 

BATFOB 

SYSTEM 

PDP-15 

PURPOSE 

THIS  ROUTINE  COHPUTES  THE  RHS  EBBOR  EETHEEN  THO  LIHES 
OF  INTBGEB  INPUT  DATA 

ENTRY  POINT 

BMSESB  (  ININ,  LNOUT ,  NUHPPL,  EBBOB  ) 

ARGUMENT  LISTING 


LNIN 

INT 

FIBST 

LINE  OF  DATA 

LNOUT 

INT 

SECOND 

LINE  OF  DATA 

NUHPPL 

INT 

NUHBEB 

CF  POINTS  PBB  LINE 

ERROB 

REAL 

ROOT  MEAN  SQUARE  EBBOB 

SOUTINES  CALLED 
NONE 


******************************************************************** 


SUBROUTINE  RMSERB  (  ININ,  LNOUT,  NUHPPL,  EBR03  ) 

» 

*  TYPE  STATEMENTS 

t 

INTEGER  LNIN (NUMPPL)  ,  LNOUT  (NUHPPL) 

REAL  ERROR,  MSE,  SUH2 

* 

SUH2  *  0. 

* 

*  COMPUTE  SUM  OF  THE  SQUABES 

* 

FOB  (  I  =  1;  I  <*  NUHPPL;  I  *  I  ♦  1  ) 

S( 

SUH2  =  SUM2  ♦  (  LNIN (I)  -  LNOUT  (I)  )  **2 

S) 

t 

•  COMPUTE  THE  RHS  EBBOB 

* 

HSE  *  SUM 2  /  NUHPPL 
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* 


ERROR  -  SQBT  (  BSE  ) 


RETORN 

END 
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APPENDIX  B 


KEY  TO  "HOW  TO  INTERPRET  NAMES  OF  IMAGES" 


(A)  NON-CAUSAL,  ADAPTIVE 

KCALI _ 

123456789 


location  // 
6 

7 

8 

9 


CCA  LI _ 

123456789 

LADY  3 _ 

123456789 

Description 

An  "0"  in  this  position  means  output  has  been  processed. 
Any  other  letter  means  no  output  processing. 

An  "R"  in  this  position  means  the  "raw"  curves  were  used. 
An  "F"  means  the  fitted  ones  were  used. 

An  "F"  in  this  position  means  compression  of  8:1.  An  "C" 
means  16:1  compression. 

An  "A"  means  no  buffer  constraint.  A  "B"  means  buffer 
has  been  constrained. 


(B)  NON-ADAPTIVE,  EQUAL  ALLOCATION 

KCAL _ 

123456789 

CCAL _ 

123456789 

L  A  D  _  3 _ 

123456789 
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location  if 
7,  8,  9 

5* 


4** 


Description 

An  RET  in  locations  7,  8,  9  means  that  the  image  is  a 
non-adaptive ,  equal  allocation  image. 

An  "E"  in  this  location  (for  CCAL  &  KCAL)  means  8:1 
compression.  An  "F"  means  16:1 

An  "E"  means  8:1.  An  "F"  means  16:1 


*for  CCAL  &  KCAL  only 
**for  LADY  image  only 


(C)  ADAPTIVE  CAUSAL 


CCAL _ 

123456789 


LADY _ 

123456789 


location  // 

1.  2,  3,  4,  5 

6,  8,  9 
7 


Description 

If  the  letter  "B"  occurs  in  any  one  of  these  locations,  it 
means  the  image  is  a  "causal"  one. 

Same  interpretationas  in  "non-causal"  case. 

As  always,  "R"  doesn't  mean  anything. 
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Either  KCALI  lor  Either  KCALI2  or 
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APPENDIX  C 
Set  of  Photographs 
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*  / 


B)  LADYB  RFA 

CAUSAL 
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A)  LADY 3  QN3 


B)  LADY 3  QN4 


RICHARDS  IMAGES 


D)  KCALIF  QN3 


RICHARDS  IMAGES 


B)  KCALIF  QN5 


RICHARDS  IMAGES 
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C)  LADE 3  RET 


D)  LADF3  RET 

EQUAL  ALLOCATION  NON -ADAPTIVE 
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C)  LADY 3  FFA 


D)  LADY 3  RCB 


NON-CAUSAL 


B)  Kl'AI  I  V  RCB 


NON-CAUSAI. 


2  If- 


C)  KCALIF  RFA 

■"# 

J 

JfcrV**  >.'<»Yt 

St 

-0 

-v 

NON-CAUSAL 


B)  CCAL1F  FFA 


NON-CAUSAI, 


C)  CCALIF  RCA 


NON-CAUSAL 
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Set  of  Graphs 
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Block  Numbers 


Numbers  for  LADY3  (Non-Causal) 
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Block  Numbers 
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1.  Introduction 


We  Investigate  here  an  approach  for  solving  the  causal  DPCM  image 
compression  problem  which  arises  naturally  as  an  extension  of  the  analytic 
solution  of  the  non-causal  problem  under  gaussian  data  assumptions.  Experi¬ 
mental  results  are  provided  comparing  the  performance  of  the  causal,  non-causal, 
and  fixed  bit  allocation  DPCM  compression. 

2.  Causal  DPCM  Image  Compression 

One  of  the  important  results  obtained  earlier  in  this  report  is  the 
fact  that  the  quantization  mean  square  error  versus  bit  rate  functions  for 
blocks  in  a  large  class  of  images  match  closely  those  predicted  by  rate 
distortion  theory  under  gaussian  data  assumptions. 

That  is, 

e2  *  a2  exp  (-ab)  (2.1) 

where  a2  is  the  variance  of  the  DPCM  corrections, b  is  the  bit  rate;  a  is  an 

image  dependent  constant,  and  e2  the  resulting  quantization  mean  square 

error.  Use  of  this  model  leads  to  an  analytic  solution  of  the  non-causal 

problem.  This  solution  is  stated  as  follows:  Let  the  image  be  partitioned 

into  K  blocks;  let  o2,...,o2  be  the  variances  of  the  DPCM  corrections  in 

1  K 

each  of  these  blocks;  let  c  be  the  desired  channel  capacity  bit  rate;  and  B 
the  available  number  of  bits  for  block  1  through  K.  The  optimal  bit  allocations 
b  i , . . . ,  b  ^  are  given  by 

b  ■  c  +  —  (In  a2  -  In  a2)  (2.2) 

k  a  k  £ 

for  k  ■  1,. . . ,K 
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l-TT 


where , 

2  1  r  2  .  B 

ln  °f  "  K  ^  lD  ak  ’  C  “  K 

k-1 

Here  a2  is  Che  geometric  average  variance  of  the  image  blocks. 

This  simple  result  states  that  blocks  with  variance  larger  than  the 
average  variance  are  allocated  bits  above  the  channel  rate  and  accordingly 
blocks  with  variance  smaller  than  the  average  variance  are  allocated  bits  below 
the  channel  rate. 

Notice  that  the  non-causal  aspect  of  the  allocation  procedure  of 
equation  2.2  reduces  to  the  knowledge  of  the  average  variance  a2  before  any 
processing  is  done.  This  also  suggests  an  attractive  simple  approach  for 
solving  the  causal  problem  which  involves  an  initial  estimation  and  subsequent 
updating  of  a2 

Assume  blocks  1  through  t-1  have  been  processed.  Block  t  is  the  current 

block  being  processed.  (oz)C  is  the  variance  of  the  DPCM  corrections  associated 

P 

with  block  t,  and  (a2)*"  is  the  current  estimate  for  a2..  Let  BC  be  the  number 
of  bits  available  for  blocks  t  through  K.  Then  allocate  bC  bits  to  the  current 
block  in  the  following  way. 


bC  ■  min  {  c  +  —  (ln  (o2)C  -  ln  (o2)C) 
up  f 

a2  can  be  updated  as 

ln  (o2)t+1  -  (1  -  y)  In  (a2)C  +  y  ln  (a2)1 
f  f  p 

and 


(2.3) 


(2.U) 
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In  order  Co  make  this  procedure  work  better  and  to  be  able  to 
attain  higher  compression  ratios  we  must  allow  the  assignment  of  zero 


bits  to  those  blocks  with  very  small  variance  as  determined  by  (2.3).  In 
this  case  the  last  row  In  the  previously  reconstructed  north  block  and  the 
last  column  In  the  previously  reconstructed  west  block  may  be  used  to  estimate 
the  current  block  In  the  usual  DPCM  manner  but  no  corrections  are  transmitted. 
The  transmitter  sends  to  the  receiver  the  values  of  the  mean  and  variance  of 
the  difference  between  the  original  block  and  the  estimated  one.  These  values 
are  used  by  the  receiver  to  Improve  its  estimate  of  the  current  block  by 
adding  to  it  uniform  noise  of  the  same  mean  and  variance.  In  order  to  avoid 
running  out  of  bits  before  all  blocks  are  processed  the  following  modification 
can  be  made  to  (2.3). 


Let  bC  ■  c  +  —  (In  (a2)C  -  In  (o2)t) 
o  a  p  r 


r min  {  Bt,  bC  }  if  BC  >  (K  -  t  +  l)c  when  c  <  1 
o  — 

,  or  BC  _>  (K  -  t  +  1)  when  c  >_  1 

min  {  1,  bC  }  otherwise 

V.  ° 


(2.5) 


An  additional  modification  to  (2.5)  can  be  made  to  take  into  account 
buffer  size  constraints.  Let  R  be  the  size  of  the  bit  buffer  and  let  rC  be 
the  state  of  the  buffer  right  after  processing  the  (t-l)th  block.  The  following 
bit  assignment  will  then  prevent  overflowing  or  underflowing  the  buffer. 


If  rC  >  c 


min 


min 


If  r  <  c 


r 


min 


bC-< 


min 


(BC, 


U,  b‘} 


R  -  rC}  if  BC  >  (K  -  t  +  l)c 
or  BC  >  (K  -  t  +  1) 

otherwise 


{BC,  max  (fcl,  b^}  if  BC  _>  (K  -  t  + 

or  BC  >  (K  -  t  + 
{1,  max  {fc],  b^}  }  otherwise 


when  c  <  1 

when  c  _>  I 

(2.6) 


l)c  when  c  <  1 

1)  when  c  >  1 


3.  Experimental  Results 

Several  experiments  were  performed  using  the  "girl”  Image  shown  In 
Figure  3.1.  This  Image  consists  of  256  x  256  pixels  and  was  blocked  Into 
16  x  16  blocks  before  processing.  This  Image  was  originally  quantized  to 
256  levels.  The  compression  technique  used  was  a  simple  2-D  DPCM  with  an 
equally  weighted  predictor.  The  DPCM  was  initialized  using  the  first  row  and 
first  column  in  the  image.  The  amount  of  dither  used  was  0.5  the  standard 
deviation  of  the  DPCM  corrections.  The  corrections  in  each  block  were  quantized 
using  a  max  quantizer  based  on  normal  distribution  with  the  same  mean  and 
variance  as  chose  of  the  corrections. 

Fixed  bit  allocation  procedures  at  bit  rates  of  1.0  and  2.0  b/p,  and 
causal  and  non-causal  procedures  at  0.85,  1.0,  1.5  and  2.0  b/p  were  carried 
out.  These  bit  rates  do  not  take  into  account  the  amount  of  bits  necessary 
for  transmitting  the  first  row  and  first  column  in  the  image  without  compression 
(9  b/p);  the  bits  necessary  to  encode  the  mean  and  variance  for  each  block 
(8  bits  for  the  mean;  12  bits  for  the  variance)  and  in  the  case  of  the  non-causal 
and  causal  procedures  the  bits  necessary  to  indicate  the  number  of  quantizing 
bits  used  for  each  pixel  within  a  block  (3  bits).  After  making  the  necessary 
corrections  the  effective  bit  rates  correspond  to  1.14  and  2.14  b/p  for  fixed 
bit  allocation  procedures  and  1.0,  1.15,  1.65  and  2.15  b/p  for  causal  and  non- 
causal  procedures. 

Figure  3.2  shows  the  reconstructed  pictures  obtained  by  using  the  fixed  bit 
allocation  procedure.  Figures  3.3  and  3.4  show  the  reconstructed  pictures  using 
non-causal  procedures  with  buffer  and  no  buffer  constraints.  Figures  3.5  and 
3.6  show  the  corresponding  results  using  a  causal  bit  allocation  procedure. 

We  can  observe  the  improvement  in  image  quality  obtained  when  using  the 
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non-causal  and  causal  bit  allocation  procedures  over  the  fixed  bit  allocation 
procedures.  This  Is  also  noticed  by  looking  at  Tables  3.1  (a)-(e)  that  show 
3  measures  of  the  error  between  the  original  picture  and  the  reconstructed 
pictures.  It  is  also  observed  that  no  additional  degradation  resulted  when 
using  the  buffer  constrained  causal  allocation  as  compared  to  the  unconstrained 
case  for  the  buffer  size  used. 
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4.  Conclusions 


We  have  shown  chat  causal  adaptive  DPCM  compression  performs 
significantly  better  than  fixed  bit  allocation  DPCM  compression,  however 
the  pixel  by  pixel  nature  of  conventional  DPCM  puts  a  limit  to  the  amount  of 
compression  we  can  obtain.  Full  advantage  of  the  adaptive  scheme  we  have 
developed  is  taken  when  the  DPCM  is  carried  out  in  a  block  by  block  fashion, 
that  is  Instead  of  estimating  the  graytone  value  of  a  single  pixel  based 
cn  past  reconstructed  neighboring  pixels  we  estimate  an  entire  block  of 
pixels  based  on  past  reconstructed  neighboring  blocks.  The  simplest  such 
scheme  would  only  make  use  of  the  last  row  in  the  top  block  and  the  last 
column  in  the  left  block.  Such  estimation  scheme  can  be  done  in  the  form  of 
a  least  squares  fit  and  may  be  also  constrained  to  minimize  the  errors  in 
the  top  and  left  borders.  A  block  in  this  case  will  be  replaced  by  its 
fitting  parameters.  Blocks  corresponding  to  regions  in  the  image  of  low 
complexity  will  then  require  lower  dimensional  fitting  than  those  blocks 
corresponding  to  regions  of  high  complexity. 


'\Mt  rate 

error 

1.14 

2.14 

Bi 

10.16 

4.90 

ABSE 

5.93 

2.92 

MAXE 

123 

101 

(a)  Fixed  bit  allocation 


'NMt  rate 

errorV 

1.0 

1.15 

1.65 

2.15 

RMS 

8.29 

7.18 

4.70 

3.44 

ABSE 

5.45 

4.75 

3.15 

2.23 

MAXE 

112 

104 

100 

90 

(b)  Non-causal;  No  buffer  constraints 


Table  3.1  Different  error  measures  between  original  and 

reconstructed  pictures;  RMS  is  the  root  mean  square 
error;  ABSE  is  the  mean  absolute  error  (the  mean 
of  the  absolute  value  of  the  difference  image) ; 

MAXE  is  the  maximum  error  (the  maximum  absolute 
value  in  the  difference  image). 
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( 


^■Mt  rate 

error 

■ 

9 

iH 

1.15 

RMS 

8.58 

7.22 

ABSE 

5.54 

4.77 

MAXE 

115 

104 

(c)  Non  causal;  Buffer  size  Is  10% 
of  minimum  size  chat  guarantees 
no  constraints. 


"\Mt  rate 

error 

1.0 

1.15 

1.65 

2.15 

RMS 

9.38 

8.30 

5.83 

3.74 

ABSE 

5.82 

5.13 

3.45 

2.34 

MAXE 

132 

132 

133 

100 

(d)  Causal;  No  buffer  constraints. 
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^vbit  rate 
error^s^ 

1.0 

1.15 

RMS 

9.38 

8.30 

ABSE 

5.82 

5.13 

MAXE 

132 

»  ..  . 

132 

(e)  Causal; 

Buffer  size 

is  10X  of 

minimum  size  that  guarantees 
no  constraints. 
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(a)  Compression:  1.1 
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Figure  3.3  (continued) 

(d)  Compression:  2.15  b/p. 
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*  ✓ 


Figure  3.4  Reconstructed  pictures  using  a  non-causal  2-0 
DPCM  with  buffer  constraints.  Buffer  size  is 
10%  of  minimum  size  that  guarantees  no 
constraints . 

(a)  Compression:  1.0  b/p. 
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Figure  3.4  (continued) 

(b)  Compression:  1.15 
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es  using  a  causa 
constraints. 


Figure  3.5  (continued) 

(b)  Compression:  1.15  b/p. 


f' 
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!’  Figure  3.5  (continued) 

V  (d)  Compression:  2.15  b/p. 


Figure  3.6  Reconstructed  picture  using  a  causal  2-D 
DPCM  with  buffer  constraints.  Buffer  size 


is  10%  of  minimum  size  that  guarantees  no 
constrainst. 


(a)  Compression:  1.0  b/p. 


Figure  3.6  (continued) 

(b)  Compression:  1.15  b/p. 
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APPENDIX  B.1 


DPCH  DATA  COBPBESSION  PACKAGE 


I.  FIXED  BIT  ALLOCATION  DPCH  DATA  COHPBESSION 


FDPCHD 


FDPCHI 


PDPCHC 


HTABDL 


FIXBLK 


GBTEGS 


BKDPCH 


EG  SI  N  T 


QTZSAH 

DPCH2L 

DPCHXX 

HSEBB 


DPDEGS 


II.  CAUSAL  AMD  BOM-CAUSAL  DPCH  DATA  COHPRESSIOM 


D PC BCD 
DPCHCI 
DPCHDC 
HVARDL 
CBITAL 
BITALO 
MBITAL 
BITALO 
F IXBLK 
GETEGS 
BKDPCH 
EGSIMT 
QTZSAH 
DPCH2L 
DPCH XX 
HSEBR 
UPDBGS 
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-PDPCHD  PUZO  BIT  ALLOCATION  DPCH  COMPRESSION  DRIVER  RIO 

IDENTIFICATION 

TITLE 
AUTHOR 
VERSION 
DATE 
LANGUAGE 
SISTER 

PURPOSE 

THIS  IS  THE  DRIVER  POR  THE  PIZED  BIT  ALLOCATION  DPCH 
DATA  COMPRESSION  PROGRAM. 

ENTRY  POIRT 

PDPCHD  (  WORK,  ALTRET  ) 

ARGO BEST  LISTING 

WORK  INT  WORK  ARRAT  TO  HOLD  INPUT  AMD  OUTPUT 

BUPPERS 

ALTRET  IHT  ALTEBHATE  RETORN  TAKEN  IN  CASE  OF  ERROR 

INCLUDE  PILES/CO HNONS 

HACAt  INCLUDE  HACBO  PILE  POR  TOKEN  DEFINITION 

GIPCOH  INCLUDE  INCLUDE  PILE  FOB  GIPSY 

ERROR  INCLUDE  INCLUDE  PILE  POR  COHHON  ERROR 

ROUTINES  CALLED 

PPUSH  PUSHES  PROGRAH  NAHE  INTO  EBBOR  STACK  (PRIMITIVE) 

PPOP  POPS  PROGRAM  NAME  OUT  OF  ERROR  STACK  (PRIMITIVE) 

RDKINL  INITIALIZES  AND  ACCESSES  AN  SIP  PILE  (PRIMITIVE) 

CLOSE  CLOSBS  AN  SIP  PILE  (PRIMITIVE) 

CTRLT  RETURNS  ADDRESS  OP  CONTROL  T.  (PRIMITIVE) 

IGNOBT  IGNORES  CONTROL  T  (PRIMITIVE) 

FDPCHI  ASKS  USER  POR  INPUT  PARAMETERS  (GIPSY) 

OSALOC  ALLOCATE  DIB  NORDS  FOB  DYNAMIC  ARRAY  (PRIMITIVE) 

PDPCBC  PERFORMS  A  PIZED  BIT  ALLOCATION  DPCH  (GIPSY) 

ON  AN  INPUT  IMAGE. 


FDPCMD 

OSCAR  A.  ZUNIGA 
A. 01 

JULY  3,  1979 

BATPOB 

IBM-370 


SUBROUTINE  PDPCHD  (  WORK,  *  ) 
INCLUDE  MACA1 

IMPLICIT  INTEGEB  (  A  -  Z  ) 


INCLUDE  GIPCOM 
INCLUDE  EBBOB 
INTEGER  BOBK  (  .IBB  ) 

INTEGER  IDEHT  (  20  )  ,  IDNT2  (  20  ) 

BEAL  EBAC 

EQUIVALENCE  ( NPPL, IDEHT (6) ) ,  (HLINS, IDEHT (7) ) 
EQUIVALENCE  (NCOLS,IDENTt13) ) ,  (NROHS, IDEHT  (14) ) 
EQUIVALENCE  {NTBND, IDEHT  { 17) ) ,  (NSBND, IDEHT  ( 18) ) 
EQUIVALENCE  { MODE, IDEHT  { 19) ) 

EQUIVALENCE  (NTBHD2 , IDNT2  (t7) ) ,  (NSBND2,IDNT2  (18)  ) 
EQUIVALENCE  (HODE2, IDHT2 ( 19) ) 


CALL  PPUSB  (  *  POPCMD 1  ) 


SET  UP  INPUT  PILE 


CALL 

BDKINL 

(  FDI1, 

IDEHT,  .OLD,  IEV, 

*9999 

) 

CALL 

CLOSE 

(  FDI1  ) 

CALL 

RDKIML 

(  PDI2, 

IDNT2,  .OLD,  IEV, 

*9999 

) 

CALL 

CLOSE 

(  FDI2  ) 

CHECK  INPUT  PILE 


IP  (  MODE  i*  t  8  MODE  -»»  0  )  GO  TO  9000 
IP  (  NTBND  -  NSBND  <»  0  )  GO  TO  9010 
IP  (  HODE2  ><*  1  J  MODE2  -*»  0  )  GO  TO  9000 
IP  (  NTBHD2  -  NSBND2  <=  0  )  GO  TO  9010 

GET  USEB  INPOBMATION 

CALL  PDPCHI  (  FDI1,  SELECT,  FBAC,  BTHATB,  *9999  ) 

CHECK  AVAILABLE  SPACE 

BLKSZE  »  NBOHS  *  HCOLS 

HRKSZ  =>  3*B LKSZE  ♦  HPPL  ♦  NLIHS 

IP  (  .OK  OSALOC  (  HBKSZ  )  )  GO  TO  9020 

GET  THE  BAND  TO  USE 

CALL  HHBAND  (  FDI1,  IDEHT,  NO,  BHD,  IEV,  *9999  ) 
BND  »  1 


SET  UP  CTBLT  ADDBESS 
CALL  CTBLT  (  *8000  ) 

CALL  THE  NUMBER  CRUHCHEB 


CALL  PDPCHC  (  FDI1,  FDI2,  PD01,  BND,  BOBK,  HRK5Z, 


# 


# 

8000 

* 

* 

t 


9000 


9010 


9020 


9998 


9999 


SELECT,  MAC,  BTBATE,  IZV,  *9998  ) 


CALL  PPOP 
BSTOBN 

COBTZBOB 

COHTBOL  T  EXIT 

CALL  IGIOBT 

CALL  CLOSE  (  FDI1  ) 

CALL  CLOSE  (  PDI2  ) 

CALL  CLOSE  (  FDOl  ) 

BBTUBH 


ABBOBBAL  CONDITIONS 


COHTZBOE 

NOT  AM  IITEGEB  FILE 

IBV  *  -2012 
GO  TO  9998 

COHTIHOE 

HO  MOBEBIC  BAHDS 

IET  »  -5018 
GO  TO  9998 

COHTIHOE 

HOT  EHOOGB  VOBX  SPACE 

IET  *  -5010 
COHTIHOE 


BBBOB  IN  SOBPBOGBAH 

CALL  CLOSE  (  F0I1  ) 

CALL  CLOSE  (  FDI2  ) 

CALL  CLOSE  (  FDOl  ) 

ABNOBHAL  BETOBH 


BBTOBH  1 
END 


✓ 
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FDPCHI 


FIZSD  DPCH  OSES  INPUT 


BID 


IDENTIFICATION 

TITLE 

AOTHOB 

VERSION 

DATE 

LAHGOAGE 

STSTEH 


FDPCHI 

OSCAB  A.  ZUNIGA 
A. 01 

JULI  2,  1979 

BATFOB 

IBH-370 


POBPOSB 

THIS  BOUTINS  ASKS  THE  USEB  THE  INPUT  PAHAHETEBS  NEEDED 
TO  PEBFOBB  A  FIXED  BIT  ALLOCATION  DPCH  ON  AN  IHAGE. 


ENTBI  POINT 


FDPCHI 

(  FD,  SBLECT, 

FBAC,  BTBATE,  EBBET  ) 

ABGUHENT  LISTING 

FD 

CHBABBAT 

FILE  DESCBIPTOB 

SELECT 

INT 

SELECTION  NUHBEB  FOB  DPCH  TECHNIQUE 

FBAC 

BEAL 

FBACTION  OF  STANDABD  DEVIATION  THAT 
OF  DPCH  DITHER  SHOULD  BE 

BTBATE 

INT 

THE  DPCH  BIT  BATE 

EBBET 

ALTBET 

ALTEBNATE  BETUBN 

INCLUDE  FILES/CO HHO NS 


HACA1  INCLUDE 
GIPCOH  INCLUDE 
EBBOB  INCLUDE 
TTCOH  INCLUDE 


HACBO  FILE  FOB  TOKEN  DEFINITION 
INCLUDE  FILE  FOB  GIPST 
INCLUDE  FILE  FOB  COHHON  EBBOB 
INCLUDE  FILE  FOB  TEBHINAL  &  BUNFILE  I/O 


BOUTINES  CALLED 


PPUSH  PUSH  PBOGBAH  NAHB  ONTO  EBBOB  STACK 
OSGTNH  GET  NAHE  STBING  FBOH  FILE  DESCBIPTOB 

GBTI  GET  INTEGEB  INPUT 

GSTB  GET  BEAL  INPUT 

PPOP  POP  PBOGBAH  NAHE  OFF  EBBOB  STACK 


(PBIHITIVE) 

(PBIHITIVE) 

(PBIHITIVE) 

(PBIHITIVE) 

(PBIHITIVE) 


********************************************* *************** ******** 


SUBBOUTINE  FDPCHI  (  FD,  SELECT,  FB AC,  BTBATE,  *  ) 

INCLUDE  HACA1 

IHPLICIT  INTEGEB  (  A  -  Z  ) 


INCLUDE  GIPCOH 


# 


# 

# 

* 


6000 


* 

i 

* 


i 


6010 


* 


6020 


* 


9999 


INCLUDE  EBBOB 
IBCLUDB  TTCOH 

CHA8ACTEB  FD  (  .FDLEHGTH  ) 

CHIB ACT EB  FDIO  (  .PILE SAHEL ENGTH  ) 

CHABACTEB  ALT,  BEILS 
BEAL  FBAC 

DATA  ALT,  BELLS  /  . ALTCHH,  . BELLCHB  / 

CALL  PPUSH  (  'FDPCHI*  ) 

GET  HAflE  IHTO  ST ST EH  STASDABD  FOBHAT 
IF  (  .OK  -»  OSGTHH  (  FD,  FDIO  )  )  GO  TO  9999 
BBITE  (BUNOT, 6000)  FDIO,  BELLS,  ALT 


FOBHAT  ( 

t 

SELECT  DPCH  PBEDICTOB  FOB  ♦,  . 

FILENARELENGTH  A1,/ 

« 

(2) 

2-D 

DPCH 

FLAT  HODBL 

LSE*/, 

• 

(3) 

HOD 

DPCH 

FLAT  HODEL 

LSE  V, 

I 

(4) 

2-D 

DPCH 

FLAT  HODEL 

HVBV, 

1 

(5) 

HOD 

DPCH 

FLAT  HODBL 

HVBV, 

• 

(6) 

2-D 

DPCH 

SLOPED  HODEL 

LSE*/, 

1 

(7) 

HOD 

DPCH 

SLOPED  HODEL 

LSE'/, 

• 

O) 

2-D 

DPCH 

SLOPED  HODEL 

HVBV, 

• 

(9) 

HOD 

DPCH 

SLOPED  HODEL 

HVB'/, 

2A1  ) 

IF  (  .OK 

GETI  ( 

FDBUBI 

,  SELECT  )  )  GO 

TO  9999 

CHECK  FOB  LEGAL  SELECT 10 B  SOHBEB 


IH1LE  (  SELECT  <  2  |  SELECT  >  9  ) 

J( 

BBITE  (TTYOT, 6000)  FDIO,  BELLS,  ALT 

IF  (  .OK  —  GET I  (  FDTTTI,  SELECT  )  )  GO  TO  9999 

*) 

BBITE  (BOBOT, 60 10)  BELLS,  ALT 

FOBHAT  (  '  EBTEB  FBACTIOB  OF  STABDABD  DEVIATION '/» 

•  THAT  BABGE  OF  DITHEB  SHOULD  BE  — *,  2A1  ) 
IF  (  .OK  -»  GETS  {  FDBUBI,  FBAC  )  )  GO  TO  9999 

BBITE  (BONOT, 6020)  BELLS,  ALT 
FOBHAT  (  •  EBTEB  BIT  BATE  —  * ,  2A1  ) 

IF  (  .OK  —  GETI  (  FDBUBI,  BTBATE  )  )  GO  TO  9999 

CALL  PPOP 
BET U HU 

COBTIBUE 

BETUBN  1 
EBD 
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— FDPCHC  FIXED  BIT  ALLOCATION  DPCH  DATA  COMPRESSION  HID 


IDENTIFICATION 

TITLE 

FDPCHC 

AUTHOB 

OSCAB  A. 

ZUNIGA 

VEBSION 

A. 01 

DATE 

JULT  3, 

1979 

LANGUAGE 

BATFOB 

STSTEH 

IBM-370 

PUB POSE 

THIS  ROUTINE  BEADS  BLOCKS  FBOH  AH  IHPOT  IHAGE  IH  A  SCAM 
BASTEB  HODE  AMD  PEBFOBHS  A  FIXED  BIT  ALLOCATION  DPCH  ON 
THOSE  BLOCKS  USING  A  NOHBEB  OF  DPCH  TECHNIQUES  AS  SEL¬ 
ECTED  BT  THE  USES 

BHTBT  POINT 

FDPCHC  (  FDI,  FDI  2,  FDO,  BND,  BOSK,  HBKSIZ,  SELECT, 
FBAC,  BTRATE,  IEV,  ALTBET  ) 

AHGUHEHT  LISTING 


FDI 

INT 

FILE  DESCBIPTOH  FOB  INPUT  IMAGE 

FDI  2 

INT 

FILE  DESCBIPTOH  FOR  LOH  PASS  FILTERED 
IHAGE 

FDO 

INT 

FILE  DESCRIPTOR  FOB  OUTPUT  IHAGE 

BND 

INT 

IMAGE  BAND  TO  PBOCESS 

BOBK 

INT 

HOBK  ABBAT  TO  HOLD  INPUT  AND  OUTPUT 
BUFFERS 

HBKSIZ 

INT 

SIZE  OF  HOBK  ABBAT 

SELECT 

INT 

SELECTION  NUHBEB  FOB  DPCH  TECHNIQUE 

FBAC 

BEAL 

FRACTION  OF  STANDABD  DEVIATION  THAT 
BANGS  OF  DITHEB  SHOULD • BE 

BTBATE 

INT 

BIT  BATE  USED  ON  THE  DPCH 

IEV 

INT 

INTEGER  EVENT  VARIABLE 

ALTBET 

INT 

ALTERNATE  EB BOB  RETURN 

INCLUDE  FILES/COHHONS 

HACA1  INCLUDE  HACBO  FILE  FOB  TOKEN  DEFINITION 
PBOGBAH  ENVIRONMENT 

THE  INPUT  IMAGE  SHOULD  BE  PBEPHOCESSBD  IN  THE  FOLLO- 
HING  HANNBB  BEFOBE  BEING  USED  IN  THIS  PBOGBAH: 

(1)  HOVE  TOP  LINE  TO  THE  BOTTOM  AND  LEFT  COLUMN  TO 
THE  BIGHT.  THIS  CAN  BE  DONE  BT  USING  THE  ' FLPEGS ' 
COMMAND  IN  GIPST 

(2)  BLOCK  THE  BESULTING  IHAGE  IN  BECTANGOLAB  BLOCKS 
USING  THE  ' BLOCK'  COHHAND  IN  GIPST 
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THB  OUTPUT  IMAGE  SHOULD  BE  POSTPBOCESSBO  IN  THE 

FOLLOWING  HANNEB  AFTEB  USING  TB1S  PBOGBAH: 

(1)  PUT  THB  IMAGE  IN  LINE  FOBHAT  USING  THE  ’BLOCK* 
COBH AND  IN  GIPST 

(2)  DELETE  THE  BOTTOH  LINE  AND  THE  BIGHTROST  CO¬ 
LUMN  IN  THB  IMAGE.  ADD  A  NEB  LIMB  AT  THE  TOP 
USING  THE  TOP  LINE  OF  THB  OBIGIHAL  IMAGE.  ADD 
ALSO  A  BBV  COLUMN  AT  THE  LEFT  USING  THE  LEFT 
COLUHN  OF  THE  OBIGIHAL  IMAGE.  THIS  CAB  BE  DOME 
USING  THB  COBHAMD  • BSTEGS*  IN  GIPST. 


ALGOHITHH 

THB  FOLLOHIMG  STEPS  ABE  FOLLOWED: 

(1)  BEAD  A  BLOCK  FBOH  THE  INPUT  IMAGE 

(2)  BEAD  A  BLOCK  FBOH  LOH  PASS  FI1TZBED  IMAGE 

(3)  COMPUTE  THB  MEAN  AND  YABIANCE  OF  THE  DIFFEBENCE 
BLOCK. 

(4)  CHEATS  A  QUANTIZATION  TABLE  USING  A  HAZ  QUANTIZES 
BASED  ON  A  GAUSSIAN  DISTBIBUTIOB  BT  USING  THE  MEAN 
AND  ▼ ABIANCE  COMPUTED  IN  STEP  (3). 

(5)  PEBFOBH  THE  DPCH  TECHNIQUE  SELECTED  BT  THE  USEB  ON 
THB  INPUT  BLOCK  USING  THE  QUANTIZATION  TABLE  CHEA¬ 
TED  ON  STEP  (4). 

(6)  WHITE  THB  OUTPUT  BLOCK  ON  THB  OUTPUT  IBAGE 

(NOTE) :  THB  TOP  LINE  AND  THB  LEFTMOST  COLUHN  OF  THE 
INPUT  IMAGE  ABE  USED  TO  INITIALIZE  THE  DPCH  PBOCEDUBE. 
SUBSEQUENTLY  THE  TOP  AND  LEFT  NEIGHBOBIMG  EDGES  FBOH 
PBEYIOUS  BLOCKS  ABE  USED  TO  INITIALIZE  THE  DPCH  IB  THE 
CUBBENT  BLOCK 

SOUTINES  CALLED 


PPOSH  . 

PPOP 

BDKIHL 

CLOSE 

CPYIDB 

DSCNAH 

PDSCI 

PDSCB 

COP YDS 

BBS  AD 

BWBITE 

FIXBLK 


antes 


PUSHES  PBOGBAH  BARE  INTO  EB80B  STACK 
POPS  PBOGBAH  BABE  OUT  OF  EBBOB  STACK 
INITIALIZES  AND  ACCESSES  AN  SIF  FILE 
CLOSES  AN  SIF  FILE 

GET  DBS CBIPTOB  BECOBDS  FBOH  INPUT  FILE 
VBITE  THE  NAHE  DESCBIPTOB  BECOBD 
MBITS  INTEGEB  DESCBIPTOB  BECOBD 
MBITS  BEAL  DESCBIPTOB  BBCOBD 
COPY  DESCBIPTOB  BECOBDS  TO  OUTPUT  FILE 
BEADS  FBOH  AM  SIF  FILE 
MBITES  TO  AN  SIF  FILE 

FIXES  BOTTOH  AND/OB  BIGHT  EDGES  OF  THB 
BOTTOH  08  BIGHTROST  BLOCKS  OF  THE 
IMAGE 

GETS  THE  NEIGHBOBIMG  EDGES  OF  THE 
BLOCKS  AT  THE  TOP  AND  AT  THE  LEFT  OF 
THE  CUBBENT  BLOCK  IN  THE  BSCOMSTBUCTED 


(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(PBIHITIYE) 

(GIPSY) 


(GIPSY) 
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IMAGE 

OPDBGS 

UPDATES  THE  BOFFEB  WHICH  STORES  ALL 

TOP  EDGES  IN  A  BOH  OF  BLOCKS  AMD 

ALL  LEFT  EDGES  IN  A  COLUMN  OP  BLOCKS 

(GIPSY) 

BVABDL 

COMPUTES  MEAN  AND  VARIANCE  OF  THE  DI¬ 
FFERENCE  BETWEEN  TWO  BLOCKS 

(GIPSY) 

BKDPCB 

CREATES  QUANTIZATION  TABLE  AND  PERFOR¬ 
MS  OPCM  OH  INPUT  BLOCKS 

(GIPSY) 

******************************************************************** 


SUBROUTINE  FDPCMC  (  FDI,  FDI2,  EDO,  BND,  WORK,  WRKSIZ, 

SELECT,  EE AC,  BTBATE,  IEV,  *  ) 

INCLUDE  MACA1 

IMPLICIT  IMTEGEB  (  A  -  Z  ) 

CHAR ACT EB  EDI  (  . FDLENGTH  ),  EDO  (  . FDLEHGTH  ) 
CHABACTEB  FDI2  (  .FDLEHGTH  ) 

1ST EGER  IDEHT  {  20  ) ,  JDENT  (  20  ) 

IMTEGEB  IDHT2  (  20  ) 

IMTEGEB  HORK  (  WBKSIZ  ) ,  Z  (  33  ) 

BEAL  FBAC,  EBBOB,  BEAN,  TAR 

EQUIVALENCE  (MBITS, IDEMT (5) ) ,  (HSDS, IDEHT  ( 12) ) 
EQUIVALENCE  (MPPL, IDEHT  (6) ) ,  (HLIH , IDEHT  (7) ) 
EQUIVALENCE  (BODE, IDEHT (19) ) 

EQUIVALENCE  (MCOLS, IDEMT (13) ) ,  (BROWS, IDEHT  (14) ) 
EQUIVALENCE  (HPPL2, IDHT2 (6) ) ,  (NLIN2,IDHT2 (7) ) 
EQUIVALENCE  (NCOL2,IDHT2 ( 13) ) ,  (NROH2, IDNT2  ( 14) ) 


CALL  PPUSH  (  ' EDPCHC '  ) 

1ST  «  359140257 

OPEN  INPUT  FILE 

CALL  BDKIML  (  FDI,  IDEMT,  .OLD,  IEV,  *9998  ) 
CALL  CLOSE  (  FDI  ) 

CALL  BDKIML  (  FDI2,  IDNT2,  .OLD,  IEV,  *9998  ) 
CALL  CLOSE  (  FDI2  ) 

CHECK  IF  SIZE  OF  INPUT  FILES 
IS  THE  SAHE 

IF  (  MPPL-**IPPL2  |  HLIM-*NLIN2  )  GO  TO  9010 
IF  (  MCOLS**3 NCOL2  (  NBOWS-«HBOW2  )  GO  TO  9020 

DO  I’3  1,  20 
JDEMT(I)  3  0 
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IT 


mgmmm 


JDENT  (5)  »  MBITS 
JDENT  (6)  *  NPPL 
JDENT  (7)  »  HLIM 
JDENT (13)  -  NCOLS 
JDElfT  (14)  »  MEOWS 
JDEHT (17)  »  1 
JDEHT (20)  «  1 

COPT  DESCRIPTOR  RECORDS  FROB  IHPOT  IB AGES, 
RODTIHE  HARE  AND  PARAHETERS  TO  TEMPORARY 
SEQUENTIAL  FILE 

CALL  CPYIDR  {  FDI,  IDEMT,  .OPMTBP,  1ST,  *9998  ) 

CALL  CPTIDR  (  FDI2,  IDHT2,  . HOOPHTBP,  IEV,  *9998  ) 

CALL  DSCNAH  (  ' FDPCMC • ,  IEV,  *9998  ) 

CALL  PDSCI  (  'INPUT  IBAGE  BAND  RUBBER. * ,  BND,  IEV,  *9998  ) 
CALL  PDSCI  (  ' OPCH  PREDICTOR  (SELECT). ',  SELECT,  IEV,  *9998  ) 
CALL  PDSCI  (  'BIT  RATE  BTRATE,  IEV,  *9998  ) 

CALL  PDSCfi  (  'DITHER  FRACTION  .',  FRAC,  IEV,  *9998  ) 

OPEN  OUTPUT  IBAGE  AND  COPT  TO  IT  THE 
DESCRIPTOR  RECORDS  FROH  TEHPORART  FILE 

CALL  COPTDS  (  FDO,  JDENT,  IEV,  *9998  ) 

ACTUAL  RUBBER  CRUNCHING 

NBPC  *  I CEIL  (  NLIN,  NROHS  ) 

NBPR  »  ICEIL  (  NPPL,  NCOLS  ) 

HBLCKS  »  NBPC  *  NBPR 
BLKSZE  *  BROWS  *  NCOLS 
ZLRN  *  NCOLS  ♦  NROHS  ♦  1 
PT1  «  1 

PT2  »  BLKSZE  ♦  PT1 
PT3  «  NPPL  ♦  PT2 
PT4  «  HLIM  ♦  PT3 
PT5  »  BLKSZE  ♦  PT4 

GET  TOP  AHD  LEFT  EDGES  IN  THE 
ORIGINAL  IBAGE 


DO  I  »  1,  NBPC 

*< 

BLKNO  «  (  NBPR  -  1  )  *  NBPC  ♦  I 

CALL  BREAD  (  FDI,  WORK(PTI),  BND,  BLKNO,  IDENT, 

.WAIT,  IEV,  *9999  ) 

DO  K  >  1,  NROHS 

WORK  (NROHS*  (I- 1)  ♦PT3+K-1)  «  WORK  (KSOHS*  (HCOLS-1)  *K) 

S) 

DO  J  »  1,  NBPR 

S( 
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* 

* 

* 


» 

* 

* 

» 


* 

8000 


f 


BLKHO  *  J  *  HBPC 

CALL  BBEAD  (  FDI,  HOBK(PTI),  BHD,  BLKHO,  IDEHT, 
.HAIT,  IEV #  *9999  ) 

DO  K  *  1,  HCOLS 

iOBK(ICOLS*  (J-1)  ♦PT2*K-1)  *  HOBK  (HBOIS*K) 

*> 

COB MB  *  VOHK (PT2+HPPL-1) 

COBBBCT  EDGES 

HOBK  (PT2+HPPL- 1 )  *  HOBK  (PT2*HPPL-2) 
HOBK(PT3*MLIH-1)  »  HOBK (PT3+MLIM-2) 

HOH  BEAD  EACH  BLOCK  IM  THE  IHAGE 
IB  A  BASTEB  SCAB  BODE  AMD  PBOCESS 


DO  I  «  1,  HBPC 

*< 

HXTCHB  =  BOBK  (  NBOHS*I  ♦  PT3  -  1  ) 
DO  J  «  1,  HBPB 

*< 


BLKHO 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


=  HBPC  *  (  J  -  1  )  ♦  I 
BBEAD  (  PDI,  HOBK(PTI),  BHD,  BLKHO,  IDEMT, 
.BAIT,  IEV,  *9999  ) 

FIXBLK  <  HOBK(PTI),  I,  J,  NBPC,  HBPB, 

MBOiS,  9 COLS  ) 

BBEAD  (  PDI 2,  HOBK  (PT5) ,  BHD,  BLKHO ,  IDHT2, 
.HAIT,  IEY,  *9999  ) 

B7ABDL  (  HOBK(PTI),  MOBK (PT5) ,  BEAM,  VAB, 
BLKSZE  ) 

GETEGS  (  HOBK (PT2) ,  HOBK(PT3), 

COBMB,  HPPL,  HLXH,  I,  J, 

HBOMS,  HCOLS,  Z,  ZLEH  ) 

BKDPCB  (  HOBK  (PT 1)  ,  HOBK(PT«),  HOBK(PT5), 

Z,  ZLEH,  BEAM,  VAB,  HBOHS ,  HCOLS, 
BTBATE,  PB AC,  1ST,  SELECT,  EBBOB  ) 
BHBITS  (  FDO,  HOBK  (PT4) ,  BBD,  BLKHO,  JDEHT, 
.BAIT,  IE?,  *9999  ) 

tJPDEGS  (  HOBK(PTft),  HOBK(PT2),  HOBK  (PT3)  , 
COBHB,  NPPL,  HLIH,  I,  J, 

HBOHS,  HCOLS  ) 


J) 

COBHB  -  HXTCHB 


*) 


COHTIHOE 

CALL  CLOSE  (  PDI  ) 
CALL  CLOSE  (  FDI2  ) 
CALL  CLOSE  (  EDO  ) 
CALL  PPOP 
BETOBH 


ABHOBHAL  COHDITIOHS 
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* 

9010 

* 

* 

* 

* 


# 

9020 

* 

* 

§ 


* 

» 

9998 

* 

* 

* 


9999 

* 


COHTIHOE 

I SPOT  PILES  ABE  HOT  TBE 
SAHE  SIZE 

IBV  »  -5021 
GO  TO  9999 

COHTIHOE 

IHPOT  PILES  HOT  THE  SAHE  BLOCK 
SIZE 

IBP  »  -5023 
GO  TO  9999 


COHTIHOE 

BEAD  OB  BBITE  EBBOB 

CALL  CLOSE  (  PDI  ) 

CALL  CLOSE  (  FDI2  ) 

CALL  CL OS  B  (  PDO  ) 

BETOBH  1 

EHD 
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— DPCHCD  DPCH  DATA  COHPRESSION  DRIVER  BID 

IDENTIFICATION 

TITLE 
AUTHOR 
VERSION 
DATE 

L ASSUAGE 
STSTEH 

PURPOSE 

THIS  IS  THE  DRIVER  FOR  THE  DPCH  DATA  COBPBESSION  PACKAGE. 
ENTRY  POINT 

DPCHCD  (  WORK,  ALTRET  ) 

ARGUHEHT  LISTING 

BOBK  INT  WORK  ARRAY  TO  HOLD  INPUT  AND  OUTPUT 

BUFFERS 

ALTRET  INT  ALTERNATE  ERROR  RETURN 

INCLUDE  FILES/COHHONS 

HACA1  INCLUDE  BACBO  FILE  FOB  TOKEN  DEFINITION 

GIPCOH  INCLUDE  INCLUDE  FILE  FOR  GIPSY 

ERROR  INCLUDE  INCLUDE  FILE  FOR  COHHON  ERROR 

ROUTINES  CALLED 


PPUSH  PUSHES  PBOGBAH  NAflE  INTO  ERROR  STACK  (PRIHITIVE) 

PPOP  POPS  PBOGBAH  NAHE  FROH  ERROR  STACK  (PRIHITIVE) 

RDKINL  INITIALIZES  AND  ACCESSES  AN  SIF  FILE  (PRIHITIVE) 

CLOSE  CLOSES  AN  SIF  FILE  (PRIHITIVE) 

CTBLT  RETURNS  ADDRESS  OF  CONTROL  T  (PRIHITIVE) 

IGNORT  IGNORES  CONTBOL  T  (PRIHITIVE) 

OSALOC  ALLOCATE  DIB  WORDS  FOB  DYNAHIC  ARRAY  (PRIHITIVE) 

DPCHCI  ASKS  USER  FOR  INPUT  PARAHETERS  (GIPSY) 

DPCHDC  PERFORHS  A  NON-CAUSAL  OB  CAUSAL  BIT  (GIPSY) 

ALLOCATION  DPCH  ON  AN  INPUT  IHAGE 

******************************************************************** 


SUBROUTINE  DPCHCD  (  WORK,  *  ) 

INCLUDE  HACA1 

IHPLICIT  INTEGER  (  A  -  Z  ) 

INCLUDE  GIPCOH 


DPCHCD 

OSCAR  A.  ZUNIGA 
A. 01 

JULY  16,  1979 

RATFOR 

IBH-370 
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INCLUDE  EBBOB 
INTEGER  WORK  (  . ARB  ) 

ISTEGEB  IDENT  {  20  ) ,  IDNT2  (  20  ) 

BEIL  FRAC,  C,  ALPHA,  GAflHA 
LOGICAL  FLAG 

EQUIVALENCE  (NPPL, IDENT (6)  )  ,  (NLINS, IDENT  (7) ) 
EQUIVALENCE  (NCOLS, IDENT {13) ) ,  (NR01S, IDENT  ( 1 4) ) 
EQUIVALENCE  (NTBND, IDENT  { 17) ) ,  (NSBND, IDENT  ( 18) ) 
EQUIVALENCE  (NODE, IDENT  (19) ) 

EQUIVALENCE  (NTBND2,IDNT2 (17) ) ,  (NSBND2, IDNT2 (18) ) 
EQUIVALENCE  (HODE2, IDNT2  (19) ) 


CALL  PPUSH  {  ' DPCHCD 1  ) 


SET  UP  INPUT  PILE 

CALL  BDKINL  {  PDI1,  IDENT,  .OLD,  IEV,  *9999  ) 

CALL  BDKINL  (  FDI2,  IDNT2,  .OLD,  IEV,  19999  ) 

CALL  CLOSE  (  FDI1  ) 

CALL  CLOSE  (  FDI2  ) 

CHECK  INPUT  FILE 

IP  (  MODE  1  S  BODE  -=  0  )  GO  TO  9000 
IF  (  NTBND  -  NSBND  <*  0  )  GO  TO  9010 
IP  (  HODE2  1  6  BODE2  0  )  GO  TO  9000 
IP  (  NTBND2  -  NSBND2  <*  0  )  GO  TO  9010 

GET  USES  INFORHATIGN 

CALL  DPCHCI  (  FDI1,  SELECT,  FRAC,  flXNBTS,  .1INBTS,  C, 
ALPHA,  BUPS2E,  GA8HA,  FLAG,  *9999  ) 

CHECK  AVAILABLE  SPACE 

BLKSZE  «  NROWS  *  NCOLS 

NBLCKS  *  ICEIL  (NLINS, NROVS) *ICEIL (NPPL, NCOLS) 

NBKSZ  *  3*BLKSZE  ♦  NPPL  ♦  NLINS  ♦  NBLCKS 
IP  (  .OK  OSALOC  {  BRKSZ  )  )  GO  TO  9020 

GET  THE  BAND  TO  USE 


BND  s  1 


SET  UP  INTERRUPT  CONTROL  T 
CALL  CTBLT  (  *3000  ) 

CALL  THE  NUHBEB  CRUNCHER 
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* 


» 

8000 

* 

t 

* 


CALL  DPCHDC 


(  FDI 1 ,  FDI2,  FD01 
SELECT,  FRAC,  C, 
MXNBTS ,  SIN8TS, 


,  BND,  WORK,  SRKS2, 
ALPHA,  GAMMA,  BUFSZE, 
FLAG,  IE 7,  *9998  ) 


CALL  PPOP 
RETURN 

CONTINUE 


CONTROL  T  EXIT 


CALL  IGNOBT 
CALL  CLOSE  {  FDI1  } 
CALL  CLOSE  (  FDI2  ) 
CALL  CLOSE  (  PD01  ) 
BET OB N 


ABNORMAL  CONDITIONS 

9000  COHTINOE 

NOT  AN  INTEGER  FILE 

: 

IE7  *  -2012 
GO  TO  9998 

t 

9010  CONTINOE 

|  NO  NUMERIC  BANDS 

> 

IJBV  *  -5018 
GO  TO  9998 

9020  CONTINUE 

|  NOT  ENOUGH  WORK  SPACE 

» 

IE7  *  -50 10 

» 

9998  CONTINUE 

!  ERROR  IN  SUBPROGRAM 


CALL  CLOSE  (  FDI1  ) 
CALL  CLOSE  (  FDI2  ) 
CALL  CLOSE  (  FDC1  ) 


ABNORMAL  RETURN 


9999  BETOFN  1 
END 
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Dpcaci 


DPCM  DATA  COMPRESSION  USER  INPUT 


aiD 

IDENTIFICATION 

TITLE 
AOTHOB 
VERSION 
DATE 

LANGUAGE 
SYSTEM 

PUBPOSE 

THIS  BOUTINS  ASKS  THE  USES  THE  INPUT  PARAfiETEBS  NEEDED 
TO  PE8FOBM  A  CAUSAL  OB  A  NON-CAUSAL  DPCH  CQHPBESSION 
ON  AN  IMAGE. 


DPCMCI 

OSCAB  A.  ZUNIGA 
A.  01 

JULY  10,  1979 

BATfOB 

IBB-370 


ENTBr  POINT 

DPCHCI  (  FD,  SEIECT,  FBAC,  MXNBTS,  HINBTS,  C,  ALPHA, 
BUFSZE,  GABHA,  FLAG,  EBBET  ) 

ABGUHENT  LISTING 


FD 

CHBABBAY 

FILE  DESCRIPTOR 

SELECT 

INT 

SELECTION  NUMBER  FOB  DPCM  TECHNIQUE 

FBAC 

BEAL 

FRACTION  OF  ST  AND ABD  DEVIATION  THAT 
RANGE  OF  DPCM  DITHER  SHOULD  BE 

HXNBTS 

1ST 

THE  ALLOWED  MAXIMUM  NUMBER  OF  BITS  PEB 
PIXEL  FOR  ANY  BLOCK 

HINBTS 

INT 

THE  ALLOWED  MINIMUM  NUMBER  OF  BITS  PER 
PIXEL  FOB  ANY  BLOCK 

C 

BEAL 

THE  CHANNEL  CAPACITY  IN  BITS  PER  PIXEL 

ALPHA 

BEAL 

THE  DISTORTION  MODEL  CONSTANT 

BUFSZE 

INT 

THE  SIZE  OF  THE  BIT  BUFFER 

GAMMA 

BEAL 

CONSTANT  USED  TO  UPDATE  THE  EXPECTED 
AVERAGE  VARIANCE  IN  CAUSAL  BIT  ALLOCA¬ 
TION. 

FLAG 

LOG 

TRUE  FOB  CAUSAL  BIT  ALLOCATION  AND 

FALSE  OTHERWISE 

SB  RET 

ALTBET 

ALTERNATE  BETURN 

INCLUDE  FILES/COMMONS 

HACA1 

INCLUDE 

MACRO  FILE  FOP  TOKEN  DEFINITION 

gipcob 

INCLUDE 

INCLUDE  FILE  FOR  GIPSY 

EBBOB 

INCLUDE 

INCLUDE  FILE  FOR  COMMON  EEPOB 

TTCOH 

INCLUDE 

INCLUDE  FILE  FOR  TERMINAL  S  RUNFILS  I/O 

ROUTINES  CALLED 


PPUSH  PUSH  PROGRAM  NAME  ONTO  ERROR  STACK  (PRIMITIVE) 
OSGTNH  GET  NAME  STBING  FROM  FILE  DESCRIPTOR  (PRIMITIVE) 
GET I  GET  INTEGER  INPUT  (PBIMITIVE) 
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*  GET B  GET  BEAL  INPUT 

*  PPOP  POP  PBOGRAB  BABE  OFF  EBBOR  STACK 

* 

# 


(PRIMITIVE) 

(PRIMITIVE) 


t*  +**■*  *************************  *******  ********  *******  **************** 


t 

* 


SUBROUTINE  DPCJ1CI 


* 


(  FD,  SELECT,  FRAC,  HXNBTS,  BINBTS, 
ALPHA,  EOFSZE,  GAMBA,  FLAG,  *  ) 


INCLUDE  BACA  1 

IBPLICIT  INTEGER  (  A  -  Z  ) 


C, 


INCLUDE  GIPCOB 
INCLUDE  EfiBOB 
INCLUDE  TTCOB 


CHARACTER  FD  (  .FDLENGTH  ) 
CHABACTEB  FDIO  (  . FI LEN AflELENGTH  ) 
CHARACTER  ALT,  BELLS 
LOGICAL  FLAG 

BEAL  FBAC ,  C,  ALPHA,  GABBA 


» 

* 

* 

* 

t 


6  000 


» 


6010 


DATA  ALT,  BELLS  /  . ALTCHR ,  . BELLCHB  / 

CALL  PPUSH  (  ' DPCHCI '  ) 

GET  NABE  INTO  SYSTEH  STANDARD  FORSAT 
IF  (  .OK  —  OSGTNB  (  FD,  FDIO  )  )  GO  TO  9*399 
WRITE  (B UNOT , 6000)  FDIO,  BELLS,  ALT 


FOBS AT  ( 


SELECT  DPCH  PREDICTOR  FOB  • FILENABELENGTH  A1,/, 


IF  (  .OK 


9 

(2) 

2-D 

DPCH 

FLAT  HODEL 

LS  E '/, 

I 

(3) 

BOD 

DPCH 

FLAT  MODEL 

LS  2 '/, 

f 

(4) 

2-D 

DPCH 

FLAT  HODEL 

MVE '/, 

1 

(5) 

HOD 

DPCH 

FLAT  MODEL 

MVE ’/, 

f 

(6) 

2-D 

DPCH 

5LOP20  MODEL 

LSE '/, 

9 

(7) 

HOD 

DPCH 

SLOPED  HODEL 

LSEV, 

1 

(8) 

2-D 

DPCH 

SLOPED  HODEL 

MVE  V, 

’  (9) 
2A1  ) 

HOD 

DPCH 

SLOPED  MODEL 

MVE’/, 

GETI  ( 

FDBUNI, 

SELECT  )  )  GO 

TO  9999 

CHECK  FOR  LEGAL  SELECTION  NUMBER 
WHILE  (  SELECT  <  2  |  SELECT  >  9  ) 

K 

WRITE  (TTYOT , 6000)  FDIO,  BELLS,  ALT 

IF  (  .  OK  -*=  GETI  (  FDTTII ,  SELECT  )  )  GO  TO  9999 

J) 

WRITE  (RUNOT,  60 10)  BELLS,  ALT 

FOBBAT  (  '  ENTER  FRACTION  OF  STANDARD  DEVIATION’/, 
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*  / 


I 

6  020 

* 

602S 

* 

6030 

* 

6040 

* 

6050 

» 

6060 

6  070 

* 

* 

9999 


•  THAT  HANGS  OF  DITHEB  SHOULD  BE  — •,  2A 1  ) 
IT  (  .OK  —  GET B  (  FDHUNI,  FHAC  )  )  50  TO  9999 

WHITE  (RUNOT,  6020)  BELLS,  ALT 
FORMAT  (  •  ENTEB  SAX  BITS  2A1  ) 

I?  (  .OK  GETI  (  FDHUNI,  MXNBTS  )  )  GO  TC  9999 

WHITE  (BUNOT, 6025)  BELLS,  ALT 
FORMAT  (  •  ENTEB  MIN  BITS  — 2A1  ) 

IF  (  .OK  -=  GETI  {  FDHUNI,  HINBTS  )  )  GO  TO  9999 

WHITE  (HUNOT,  6030)  BELLS,  ALT 

FORMAT  (  •  ENTER  CHANNEL  CAPACITT--*,  2A1  ) 

IF  (  .OK  -*  GETH  (  FDHUNI,  C  )  )  GO  TO  9999 

WHITE  (HUNOT, 6040)  BELLS,  ALT 

FOHMAT  (  *  ENTER  DISTORTION  MODEL  CONSTANT  — ', 

211  ) 

IP  (  .OK  GETH  (  FDHUNI,  ALPHA  )  )  GO  TO  9999 

WRITE  (HUNOT, 6050)  BELLS,  ALT 

FORMAT  (  *  ENTER  BUFFER  SIZE  — ',  2A 1  ) 

IF  (  .OK  GETI  (  FDHUNI,  BOFSZE  )  )  GO  TO  9999 

WHITE  (HUNOT, 6060)  BELLS,  ALT 

FORMAT  (  '  SOU-CAUSAL  (0)?  OR  CAUSAL  (1)?--',  2A1  ) 

IF  (  .OK  —  GETI  (  FDHUNI,  KK  )  )  GO  TO  9999 

I!  (  n  ■  i  ) 

*  ( 

FLAG  =»  .TRUE. 

WHITE  (RUNOT, 6070)  BELLS,  ALT 

FOHMAT  (  •  ENTER  OPDATING  CONSTANT  — ',  2A1  ) 

IF  (  .OK  GETH  (  FDHUNI,  GAMMA  )  )  GO  TC  9999 

S) 

ELSE  FLAG  *  .FALSE. 

CALL  PPOP 
RETURN 

CONTINUE 

RETURN  1 
END 
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CPC 9 DC  NON-CAUSAL  AND  CAUSAL  DPCS  DATA  COMPRESSION  MID 

IDENTIFICATION 


TITLE 

AUTHOR 

VERSION 

DATE 

LANGUAGE 

SYSTEM 


DPCMDC 
OSCAR  A. 
A. 01 

JULY  16, 
RATFOR 
IBM- 370 


ZUNIGA 

1979 


PUB POSE 

THIS  ROUTINE  BEADS  BLOCKS  FROM  AN  INPUT  IMAGE  IN  A  SCAN 
RASTER  MODE  AND  PERFORMS  A  NON-CAUSAL  OR  CAUSAL  BIT  ALL¬ 
OCATION  DPCM  ON  THOSE  BLOCKS  USING  A  NUMBER  OF  DPCM  TEC¬ 
HNIQUES  AS  SELECTED  BY  THE  USER. 

ENTRY  POINT 


DPCMDC  (  FDI,  FDI2,  FDO,  BND,  WORK,  WRKSIZ,  SELECT, 
FBAC,  C,  ALPHA,  GAMMA,  BUFSZE,  MINBTS, 
MINBTS,  FLAG,  IEV,  AITRET  ) 


ARGUMENT  LISTING 


*  FDI 

INT 

FILE  DESCRIPTOR  FOR  INPUT  IMAGE 

#  FDI  2 

INT 

FILE  DESCRIPTOR  FOR  LOW  PASS  FILTERED 

» 

IMAGE 

i  FDO 

INT 

FILE  DESCRIPTOR  FOR  OUTPUT  IMAGE 

*  BND 

INT 

IMAGE  BAND  TO  PROCESS 

*  WORK 

INT 

WORK  ARRAY  TO  HOLD  INPUT  AND  OUTPUT 

♦ 

* 

BUFFERS 

* 

j 

*  WRKSIZ 

INT 

SIZE  OF  WORK  ARRAY 

s 

•  SELECT 

INT 

SELECTION  NUMBER  FOR  DPCM  TECHNIQUE 

#  FRAC 

BEAL 

FRACTION  OF  STANDARD  DEVIATION  THAT 

* 

RANGE  OF  DITHER  SHOULD  BE 

*  C 

BEAL 

THE  CHANNEL  CAPACITY  IN  BITS  PER  PIXEL 

t 

»  ALPHA 

REAL 

DISTORTION  MODEL  CONSTANT 

V 

t  GAMMA 

BEAL 

CONSTANT  USED  TO  UPDATE  THE  EXPECTED 

AVERAGE  VARIANCE  IN  CAUSAL  BIT  ALLOCA¬ 

TION  DPCM 

V 

»  BUFSZE 

INT 

THE  SIZE  OF  THE  BIT  BUFFER 

»  MINBTS 

INT 

THE  ALLOWED  MAXIMUM  NUMBER  OF  BITS  PEE 

•J 

* 

PIXEL  FOR  ANT  BLOCK 

•  MINBTS 

INT 

THE  ALLOWED  MINIMUM  NUMBER  OF  BITS  PER 

PIXEL  FOR  ANY  BLOCK 

V 

•  FLAG 

LOG 

TRUE  FOB  CAUSAL  BIT  ALLOCATION  AND  FALSE 

r 

• 

OTHERWISE. 

•  IEV 

INT 

INTEGER  EVENT  VARIABLE 

*  ALTRET 

INT 

ALTERNATE  ERROR  RETURN 

INCLUDE  FILES/COMMONS 
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1 


IS  AC  A 1  INCLODS 


HACBO  FILS  FOB  TOKEN  DEFINITION 


PROGRAM  SNVIBONBSNT 

THE  INPUT  I HAGS  SHOOLD  BE  PBEPHOCESSED  IN  THE  FOLLOW¬ 
ING  MASHER  BEFOBE  BEING  OSED  IN  THIS  PROGRAM : 

(1)  MOVE  TOP  LINE  TO  THE  BOTTOM  AND  LEFT  COLUMN  TO  THE 
BIGHT.  THIS  CAS  BE  DONE  SI  USING  THE  ‘FLPEGS*  COM¬ 
MAND  IN  GIPST. 

(2)  BLOCK  THE  RESULTING  IMAGE  IN  BECTANGULAB  BLOCKS  USING 
THE  ‘BLOCK*  COMMAND  IN  GIPST. 

THE  OUTPUT  IMAGE  SHOOLD  BE  POSTPBOCBSSED  IN  THE  FOLLOWING 
MANNER  AFTER  USING  TBIS  PROGRAM: 

(1)  POT  THE  IMAGE  IB  LINE  FORMAT  USING  THE  ’BLOCK*  COMMAND 
IN  GIPST. 

(2)  DELETE  THE  BOTTOM  LINE  AND  THE  RIGHTMOST  COLUMN  IN  THE 
IMAGE.  ADD  A  NEW  LINE  AT  THE  TOP  USING  THE  TOP  LINE  OF 
THE  ORIGINAL  IMAGE.  ADD  ALSO  A  SEW  COLUMN  AT  THE  LEFT 
USING  THE  LEFT  COLUMN  OF  THE  ORIGINAL  IMAGE.  THIS  CAS  BF 
DONE  BT  USING  THE  COMMAND  ’RSTEGS*  IN  GIPST. 

ALGORITHM 

REFER  TO  CHAPTER  EIGHT  IN  THE  PROJECT  REPORT. 

ROUTINES  CALLED 

PPUSH  PUSHES  PROGRAM  NAME  INTO  ERFOR  STACK 
PPOP  POPS  PROGRAM  NAME  FBOM  ERROR  STACK 
BDKINL  INITIALIZES  AND  ACCESSES  AS  SIF  FILE 
CLOSE  CLOSES  AN  SIF  FILE 

CPTIDB  GET  DESCBIPTOB  BECORDS  FROM  INPUT  FILE 
DSC NAM  WRITE  THE  NAME  DESCRIPTOR  RECORD 
PDSCI  WHITE  INTEGER  DESCBIPTOR  RECORD 
PDSCR  WRITE  REAL  DESCRIPTOR  RECORD 
PDSCPS  WRITE  PACKED  STHING  DESCHIPTOR  BECCBD 
COPT DS  COPT  DESCRIPTOR  RECORDS  TO  OUTPUT  FILE 
BREAD  READS  FROM  AN  SIF  FILE 
R WRITE  WRITES  TO  A 8  SIF  FILE 

FIX8LK  FIXES  BOTTOM  AND/OR  RIGHT  EDGES  OF  THE 
BOTTOM  OH  RIGHTMOST  BLOCKS  OF  THE  IN¬ 
PUT  IMAGE. 

GETEGS  GETS  THE  NEIGHBORING  EDGES  OF  THF  BLCC 
KS  AT  THE  TOP  AND  AT  THE  LEFT  OF  THE 
CURRENT  BLOCK  IN  THE  RECONSTRUCTED  I- 
MAGE 

UPDEGS  UPDATES  THE  BUFFERS  WHICH  STORE  ALL 
TOP  EDGES  IN  A  ROW  OF  BLOCKS  AND  ALL 
LEFT  EDGES  IN  A  COLUMN  OF  BLOCKS 
BKDPCM  CREATES  QUANTIZATION  TABLE  AND  PERFO¬ 
RMS  DPCB  ON  INPUT  BLOCKS 


(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(PRIMITIVE) 

(GIPST) 


-  (GIPST) 


(GIPST) 


(GIPSY) 
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* 

t 

* 

# 

* 

# 

* 

#****« 

I 

* 


MVARDL  COMPUTES  MEAN  AND  VARIANCE  0?  THE  DIF¬ 
FERENCE  BETWEEN  TWO  BLOCKS 
HBITAL  PERFORMS  A  NON-CAUSAL  BIT  ALLOCATION 
OH  THE  BLOCKS  OF  THE  INPUT  IMAGE 
CBITAL  PERFORMS  A  CAUSAL  BIT  ALLOCATION  ON 
THE  BLOCKS  OF  THE  INPUT  IMAGE 


(GIPSY) 

(GIPSY) 

(GIPSY) 


**************************************** *****************  ****** 


SUBROUTINE  DPCMDC  (  FDI,  FDI2,  FDC ,  BHD,  WCBK,  WRKSIZ, 

SELECT,  FRAC,  C,  ALPHA,  GAMMA,  8UFSZE, 
MZNBTS ,  MINBTS,  FLAG,  IEV,  *  ) 

INCLUDE  MACA1 

IMPLICIT  INTEGER  (  A  -  Z  ) 

CHARACTER  FDI  {  . FDLENGTH  ),  FDO  (  . FDLENGTH  ) 

CHARACTER  FDI 2  {  .FDLENGTH  ) 

INTEGER  IDENT  (  20  )  ,  JDENT  (  20  ) 

INTEGER  IDNT2  (  20  ) 

INTEGER  WORK  (  WRKSIZ  ),  Z  (  33  ) 

BEAL  FRAC,  ERROR,  MEAN,  VAR,  ALPHA,  GAMMA,  C 
REAL  VARBUF  (  1024  ),  MEANBF  (  1024  ) 

LOGICAL  FLAG 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( NB ITS, IDENT (5) ) ,  (NWDS, IDENT ( 12) ) 
(NPPL,ID£NT(6)  )  ,  ( NLIN , IDENT  (7)  ) 

(MODE,  IDENT  (19)  ) 

(NCOLS, IDENT (13) ) ,  (NROWS, IDENT  (14) ) 
(NPPL2,IDNT2  (6)  )  ,  (NLIH2, IDNT2  (7)  ) 
(NCOL2,IDNT2  (13) )  ,  (NROW2, IDNT2  ( 1  4) ) 


» 

» 

* 


* 

* 


CALL  PPUSH  (  'DPCMDC*  ) 

1ST  •  359140257 

OPEN  INPUT  FILE 

CALL  RDKINL  (  FDI,  IDENT,  .OLD,  IEV,  *9998  ) 
CALL  CLOSE  (  FDI  ) 

CALL  RDKINL  (  FDI2,  IDNT2,  .OLD,  IBV,  *9998  ) 
CALL  CLOSE  (  FDI2  ) 

CHECK  IF  SIZE  OF  INPUT  FILES 
IS  THE  SAME 

IF  (  NPPL-**NPPL2  |  NLIN-*NLIN2  )  GO  TO  9010 
I?  (  NCOLS-»»NCOL2  |  NROWS-«NROW2  )  GO  TO  9020 

DO  I  *  1,  20 
JDENT  (I)  «  0 
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* 


4 

4 

* 

4 

* 


d 


JDENT  (5)  »  MBITS 
JDEHT  (6)  *  NPPL 
JDEHT  (7)  *  MLIM 
JDEHT  (13)  >  HCOIS 
JDEHT  (14)  s  MHO  US 
JDENT ( 17)  *  1 
JDEHT  (20)  *  1 

COPY  DESCRIPTOR  HECOHDS  FROM  INPUT  13 AGES, 
HOOTIHE  MANE  AMD  PARAMETERS  TO  TEBPORARY 
SEQUENTIAL  PILE 

CALL  CPYIDR  (  FDI,  IDENT,  .OPNTMP,  IE7,  *9998  ) 

CALL  CPYID8  (  FDI2,  IDNT2,  .NOOPNTMP,  IEV,  *9998  ) 

CALL  DSCHAH  (  ’DPCMDC',  IEV,  *9998  ) 


CALL 

PDSCI 

( 

•INPUT  IMAGE  BAND  NUMBER. 

« 

9 

BNO,  IEV 

,  *9998  ) 

CALL 

PDSCI 

( 

' DPCM  PREDICTOR  (SELECT). 

9 

9 

SELECT, 

IEV, 

*9998 

) 

CALL 

PDSCI 

( 

•BIT  BUFFER  SIZE 

f 

9 

BUFSZE, 

IEV, 

*9998 

) 

CALL 

PDSCI 

( 

•ALLOWED  MAI  *  BITS/PEL  . 

9 

9 

HXNBTS, 

IEV, 

*9998 

) 

CALL 

PDSCI 

( 

'ALLOWED  MIN  4 BITS/PEL  . 

9 

9 

MINBTS , 

IEV, 

*9998 

) 

CALL 

PDSCR 

( 

•DITHER  FRACTION 

9 

9 

FRAC,  IEV,  *9998  ) 

CALL  PDSCR  ( 
CALL  PDSCR  ( 


•CHANNEL  CAPACITY 
•DISTORTION  MODEL  CONST 


,  C,  IEV,  *9998  ) 

,  ALPHA,  IEV,  *9998  ) 


IF  (  FLAG  ) 

*(• 

CALL  PDSCPS  (  'CAUSAL  BIT  ALLOCATION  IEV,  *9993  ) 

CALL  PDSCR  (  'UPDATING  CONSTANT  GAMMA,  IEV,  *9998  ) 

S) 

ELSE 

CALL  PDSCPS  {  'NON-CAUSAL  BIT  ALLOCAT.',  IEV,  *9998  ) 

OPEN  OUTPUT  IMAGE  AND  COPY  TO  IT  THE 
DESCRIPTOR  RECORDS  FROM  TEMPORARY  FILE 

CALL  COP YDS  (  FDO,  JDENT,  IEV,  *9998  ) 

ACTUAL  NUMBER  CRUNCHING 

NBPC  «  ICEIL  (  NLIN,  NROWS  ) 

HBPR  a  ICEIL  (  NPPL,  NCOLS  ) 

NBLCKS  *  NBPC  *  NBPR 
BLKSZE  »  NROWS  *  NCOLS 
ZLEH  »  NCOLS  ♦  NRONS  ♦  1 
PT1  ■  1 

PT2  »  BLKSZE  ♦  PT1 
PT 3  »  NPPL  ♦  PT2 
PT4  »  NLIN  ♦  PT3 
PT5  *  BLKSZE  ♦  PT4 
PT6  ■  NBLCKS  ♦  PT5 
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*  get  top  and  left  edges  in  the 

*  ORIGINAL  INAGE 

» 

DO  I  *  1,  NBPC 

U 

BLKNO  *  (  NBPR  "  1  )  *  NBPC  ♦  I 

CALL  BREAD  (  FDI ,  WORK(PTI),  BND,  BLKNO,  IDENT, 

.WAIT ,  IE V,  *9999  ) 

DO  K  *  1,  NROMS 

WORK  (NBOWS*  (1-1)  +PT3+K-  1)  *  WORK  (N P.OWS*  (NCOLS- 1  )♦  K) 

J) 

I 

DO  J  *  1,  MBPH 

s  ( 

BLKNO  =  J  *  NBPC 

CALL  RREAD  (  FDI,  WORK(PTI),  BND,  BLKNO,  IDENT, 

.WAIT,  IEV ,  *9999  ) 

DO  K  *  1,  NCOLS 

WORK  (NCOLS*  (J-1)  +PT2*K-1)  »  WO  RK  (NROWS  *R) 

S) 

CORNR  *  WORK(PT2*NPPL-1) 

» 

*  CORRECT  EDGES 

« 

WORK  (PT2* NPPL- 1 )  -  WORK  (PT2+-NPPL-2) 

WOHK(PT3+NLIN-1)  *  WORK  ( PT3 ♦NLIN-2) 

* 

#  COHPOTB  MEAN  AND  VARIANCES 

*  FOR  EACH  BLOCK  IN  THE  IHAGE 

» 

DO  I  *  1,  NBPC 
DO  J  a  1,  NBPR 

J  ( 

BLKNO  »  NBPC  *  (  J  -  1  )  ♦  I 
NOB  »  NBPR  *  (  I  -  1  )  ♦  J 

CALL  RREAD  {  FDI,  WORK(PTI),  BND,  BLKNC ,  IDENT, 
.WAIT,  IEV,  *9999  ) 

CALL  FIXBLK  (  WORK(PTI),  I,  J,  NBPC,  NBPR, 

NROWS,  NCOLS  ) 

CALL  BREAD  (  FDI2,  WORK(PT5),  BND,  BLKNC,  IDNT2, 
.WAIT,  IEV,  *9999  ) 

CALL  HVARDL  {  WORK(PTI),  WORK(PT5),  SEAN,  VAR, 
BLKSZE  ) 

VARBOF  (  NUN  }  *  VAB 
MEANBF  (  NON  }  »  SEAN 
S) 

• 

#  PERFORH  A  CAUSAL  OR  NON-CAOSAL 

*  BIT  ALLOCATION 

» 

IF  {  FLAG  ) 

CALL  CBITAL  {  VARBOF,  WCFK(PT6),  N8LCKS,  BLKSZF, 

ALPHA,  GAMMA,  C,  HXNBTS,  MINBTS, 

BUFSZE ,  NBPC,  NBPR  ) 
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• 

IP  (  -  FLAG  ) 

CALL  NBITAL  (  7ARB0F,  B0RK(PT6),  NBLCKS,  BLRSZE, 
ALPHA,  C,  HXNBTS,  MINBTS ,  BUFSZE, 

NBPC  ,  NBPR  ) 

• 

*  NOB  READ  EACH  BLOCK  IN  THE  IMAGE 

*  IN  A  RASTER  SCAN  MODE  AND  FBCCESS 

» 

DO  I  *  1,  NBPC 

$( 

N XTCNH  *  WORK  {  NROBS*I  ♦  PT3  -  1  ) 

DO  J  «  1,  NBPR 

J  < 

BLKNO  *  NBPC  *  (  J  -  1  )  ♦  I 
NOH  »  NBPB  *  (  I  -  1  )  *  J 

CALL  BREAD  {  FDI ,  WORK(PTI),  BND,  BLKNO,  IDENT, 
.BAIT,  IE7,  X9999  ) 

CALL  RBEAD  {  FDI2,  WORK  (PT5)  ,  BND,  BLKNO,  IDNT2, 
.BAIT,  IE7,  *9999  ) 

MEAN  >  BEANBF  (  NOM  ) 

7AB  a  VARBOF  (  NOM  ) 

BTRATE  *  WORK  (  PT6  ♦  NOH  -  1  ) 

CALL  GETEGS  (  WORK(PT2),  WORK(PT3), 

CORNR,  NPPL,  NLIN,  I,  J, 

NROBS,  NCOLS,  Z,  ZLEN  ) 

CALI  FIIBLK  (  WORK (PT 1) ,  I,  J,  NBPC,  NBPR, 

NROBS,  NCOLS  ) 

CALL  BKDPCM  (  WOHK(PTI),  WORK  (PT4)  ,  WORK  (PTS)  , 

Z,  ZLEN,  MEAN,  7AR,  NROWS,  NCOLS, 
BTRATE,  FRAC,  1ST,  SELECT,  ERROR  ) 
CALL  RWRITE  (  FDO ,  WORK <PT4) ,  BND,  BLKNO,  JDENT, 
.BAIT,  IE7,  *9999  ) 

CALL  OPDEGS  (  WORK{PT4),  BORK[PT2),  WORK (PT3)  , 
CORNH,  NPPL,  NLIN,  I,  J, 

NROBS,  NCOLS  ) 

*) 

CORNR  a  NXTCNB 

J) 

8000  CONTINUE 

* 

CALL  CLOSE  (  FDI  ) 

CALL  CLOSE  (  FDI2  ) 

CALL  CLOSE  (  FDO  ) 

CALL  PPOP 
RETURN 

* 

*  ABNORMAL  CONDITIONS 
9010  CONTINUE 

» 

*  INPUT  FILES  ARE  NOT  THE 

*  SAME  SIZE 
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» 

IE7  *  -5021 
GO  TO  9999 

* 

9020  CONTINUE 

» 

#  INPUT  PILES  NOT  THE  SAflE  BLOCK 

•  SIZE 

* 

IEY  a  -5023 
GO  TO  9999 

» 

* 

9998  CONTINUE 

* 

»  BEAD  OB  WRITE  EBROB 

# 

CALL  CLOSE  (  PDI  ) 

CALL  CLOSE  (  PDI2  ) 

CALL  CLOSE  (  PDO  ) 

9  999  RETURN  1 

» 

END 
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rx 


--HVARDL  MEAN  AND  7 AHIANCE  Of  A  LIME  OF  DIFFERENCES  MID 

IDENTIFICATION 

TITLE 
AUTHOR 
VERSION 
DATE 

LANGUAGE 
SYSTEM 

PURPOSE 

THIS  ROUTINE  COMPOTES  THE  MEAN  AND  VARIANCE  OF  THE 
DIFFERENCE  OF  TWO  LINES  OF  INTEGER  DATA. 

ENTRY  POINT 

HVAfiDL  (  LINE1,  LINE2,  DMEAN ,  DVAB ,  NOHPP:,  ) 

ARGUMENT  LISTING 


LINE  1 

INT 

FIRST  LINE  OF  DATA 

LINE2 

INT 

SECOND  LINE  OF  DATA 

DMEAN 

REAL 

MEAN  OF  THE  DIFFERENCE  LINE 

DVAR 

REAL 

VARIANCE  OF  THE  DIFFERENCE  LINE 

NUMPPL 

INT 

NUMBER  OF  POINTS  PER  LINE 

ROUTINES  CALLED 
NONE 


MVABDL 

OSCAR  A.  ZUNIGA 
A. 01 

AUGUST  31,  1978 

RATFOB 

IBM-370 


*  **** **********  **********************************  *************  ****** 


SUBROUTINE  MVARDL  (  LINE1,  LINE2 ,  DM EAN,  DVAR,  NUHPPL  ) 

» 

INTEGER  LINE1  (NUMPPL)  ,  LINE2  (NUMPPL) 

REAL  DMEAN,  DVAR,  SUM,  SUM  2 

♦ 

SOM  *  0. 

SOM  2  *  0. 

* 

DO  1*1,  NUMPPL 

SOM  *  SUM  ♦  LINE  1(1)  -  LINE2  (I) 

DMEAN  *  SOM/NOMPPL 

* 

DO  I  *  1,  NUMPPL 

SUH2  *  SOH2  ♦  (LINE1  (I) -LINE2  (I)  -DMEAN)  **2 
DVAR  *  SOH2  /  NUMPPL 

• 

HETOHN 

END 
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-CBITAL  CAUSAL  DPCH  BIT  ALLOCATION 

IDENTIFICATION 

TITLE 
AUTHOR 
VERSION 
DATE 

LAMGUAGE 
STSTEH 

PURPOSE 

THIS  BOOTINE  PERFORMS  A  CAUSAL  BIT  ALLOCATION  ON 
THE  BLOCKS  OF  AN  IMAGE 


CBITAL 

OSCAB  A.  ZUNIGA 
A. 01 

JULY  21,  1979 
BATFOB 
IBM- 370 


ENTBI  POINT 


CBITAL  (  VARBUF,  OBITA8,  NBLCKS,  3LKSZE,  ALPHA, 
GAMMA,  C,  MZNBTS,  MINBTS,  BUFSZE, 

NBPC,  NBPR  ) 


ARGUMENT  LISTING 

VARBUF 

REAL 

1-D  ARRAY  CONTAINING  THE  VARIANCES  OF 
THE  DPCH  CORRECTIONS  FOE  EACH  BLOCK 

OBIT A B 

I  NT 

1-D  OUTPUT  ARRAY  CONTAINING  THE  BIT 
ALLOCATIONS  FOR  EACH  BLOCK 

NBLCKS 

INT 

THE  NUMBER  OF  BLOCKS  TN  THE  IMAGE 

BLKSZE 

IHT 

THE  SIZE  OF  EACH  BLOCK 

ALPHA 

REAL 

DISTORTION  MODEL  CONSTANT 

GAMMA 

REAL 

CONSTANT  PARAMETER  FOR  UPDATING  THE 
ESTIMATION  OF  THE  AVERAGE  OF 

THE  FUTURE  VARIANCE. 

C 

BEAL 

THE  CHANNEL  CAPACITY  IN  BITS  PER  PIXEL 

MINBTS 

INT 

THE  ALLOWED  MAXIMUM  NUMBER  OF  BITS  PEP 
PIXEL  FOB  ANY  BLOCK 

MINBTS 

INT 

THE  ALLOWED  MINIMUM  NUMBER  OF  BITS  PER 
PIXEL  FOR  ANY  BLOCK 

BUFSZE 

INT 

THE  SIZE  OF  THE  BIT  BUFFER 

NBPC 

INT 

NUMBER  OF  BLOCKS  PER  COLUMN 

NBPR 

INT 

NUMBER  OF  BLOCKS  PEa  ROW 

INCLUDE  FILBS/COMMONS 

MACA1  INCLUDE  MACRO  FILE  FOB  TOKEN  DEFINITION 
ALGORITHM 

THE  ALGORITHM  USED  IN  THIS  BOUTINE  IS  BASED  ON  PATE  DIS¬ 
TORTION  THEORY  ASSUMPTIONS  FOR  GAUSSIAN  DATA.  UNDER  THIS 
ASSUMPTIONS  THE  RELATION  BETWEEN  MEAN  SQUARE  QUANTIZATION 
ERROR  AND  BIT  BATE  FOR  EACH  BLOCK  IS  GIVEN  BY  : 
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MID 


r  "  * 


BSE  =  VAR  *  EXP  (  -ALPHA*N8ITS  ) 


WHERE  BSE 
VAR 
ALPHA 
NBITS 


BEAU  SQUARE  QUANTIZATION  ERROR 
VARIANCE  ASSOCIATED  WITH  THE  BLOCK 
DISTORTION  BODEL  CONSTANT 
THE  BIT  RATE 


I?  VARI,  VAR2/ . , VARK  ARE  THE  VARIANCES  OF  THE  DPCM 

CORRECTIONS  FOR  THE  K  BLOCKS  IN  THE  IB  AGE,  C  IS  THE 
DESIRED  CHANNEL  CAPACITY,  THEN  IT  CAN  BE  SHOWN  THAT 
THE  OPTIBAL  BIT  ALLOCATION  FOR  EACH  BLOCK  IS  GIVEN  BY: 


MBITS  (K)  ■  C  *  (1/ALPHA)  *  (  LN  (VARK)  -  LN  (VARF)  ) 

LN(VARF)  *  (1/K)  *  SOB  LN  (VARI) 

I  -  1,  K 

OBSERVATION  OF  THIS  RELATION  INDICATES  THAT  BIT  ALLOCATION 
TO  A  PRESENT  BLOCK  DEPENDS  ON  THE  ESTIMATION  OF  ONLY  ONE 
FUTURE  PARAMETER,  IE,  LN  (VARF) .  THIS  ROUTINE  ESTIMATES 
INITIALLY  LN (VARF)  AS  LN  (VARI)  FOR  THE  FIRST  BLOCK  AND  SUB¬ 
SEQUENTLY  UPDATES  THIS  ESTIMATION  IN  THE  FOLLOWING  PASHION: 

LN  (V AHF ;  I  *  1 )  =  (1-GAMHA) *LN (VARF;I)  ♦  GAMBA*LN (VARI) 

THE  INDEXES  1*1  AND  I  REFERS  TO  THE  ESTIMATION  FOR  THE 
(1*1) TH  AND  ITH  BLOCX  RESPECTIVELY.  VARI  IS  THE  TRUE 
VARIANCE  OF  THE  ITH  BLOCK. 

FOR  EXPLANATION  OF  BUFFER  HANDLING  REFER  TC  THE  TECHNI¬ 
CAL  REPORT,  CHAPTER  8. 


ROUTINES  CALLED 


BITALO  BIT  ALLOCATION  OUTPUT 


(GIPSY) 


*  ******  ****************  ****************  ******  **********41*4141*  a******* 


SUBROUTINE  CBITAL  (  VARBUF,  OBITAB,  NBLCKS,  3LKSZE, 

ALPHA,  GASH A,  C,  MXNBTS,  BINBTS, 
BUFSZE,  NBPC,  NBPR  ) 


INCLUDE  BACA  1 

INTEGER  OBITAB  (  NBLCKS  ) 

INTEGER  BTSLFT,  BKSLFT,  BUFSZE,  BLKSZE 
INTEGER  CBITS,  ESTATE,  BU7BTS,  BTSOUT 
BEAL  VARBUF  (  NBLCKS  ),  LNVARF,  LNVARP 
LOGICAL  FLAG 


ESTIMATE  AVERAGE  VARIANCE  AS  THE 
VARIANCE  FOR  THE  FIRST  BLOCK 
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VARF  -  VARBU?  (  1  ) 

LNVARF  *  A LOG  (  VARF  ) 

ALPHIV  *  1.  /  ALPHA 
BTSLFT  *  C  *  NBLCKS 
BKSLFT  *  NBLCKS 

IF  (  C  <  1.  )  IBKSLF  *  C  ♦  BKSLFT 

ELSE  IBKSLF  *  BKSLFT 

IF  (  BTSLFT  <*  IBKSLF  )  FLAG  *  .TRUE. 

ELSE  FLAG  *  .FALSE. 

CBITS  -  C 

IF  (  C  -  CBITS  >  0.  )  CBITS  *  CBITS  ♦  1 
BTSOOT  »  IROUND  (  C*BLKSZE  ) 

ASSUME  BUFFER  INITIALLY  HALF  FULL 

BSTATE  =  BUFSZE  /  2 

BOFBTS  =  (  BUFSZE  ♦  BTSOUT  -  BSTATE  )  /  BLKSZE 

ALLOCATE  BITS  TO  EACH  BLOCK;  UPDATE 
ESTIMATION  OF  AVERAGE  VARIANCE  AND 
PREVENT  BUFFER  OVERFLOW  OR  UNDERFLOW 

DO  K  »  1,  NBLCKS 
S( 

LNVARP  =  ALOG  {  VARBOF  (  K  )  ) 

BTHATE  »  c  *  ALPHIV  *  (  LNVARP  -  LNVARF  ) 

NBITS  a  IROUND  (  BTHATE  ) 

IF  {  BSTATE  <*  BTSOUT  ) 

S< 

NBITS  »  fjAXO  (  NBITS,  CBITS  ) 

KBITS  »  aiNO  (  NBITS,  HXNBTS,  BTSLFT  ) 

*) 

ELSE 
S  ( 

NBITS  »  HAJCO  (  NBITS,  HINBTS  ) 

NBITS  «  aiNO  (  NBITS,  HXNBTS,  BTSLFT,  BUFBTS  ) 

J) 

IF  (  FLAG  )  NBITS  »  HINO  (  NBITS,  1  ) 

OBITAB(K)  »  NBITS 
BTSLFT  ■  BTSLFT  -  NBITS 
BKSLFT  »  BKSLFT  -  1 

ESTATE  «  BSTATE  ♦  NBITS*BLKSZE  -  BTSOUT 
BOFBTS  «  (  BUFSZE  ♦  BTSOUT  -  BSTATE  )  /  BLKSZE 
IF  (  C  <  1.  )  IBKSLF  «  C  *  BKSLFT 
ELSE  IBKSLF  *  BKSLFT 

IF  (  BTSLFT  <»  IBKSLF  )  FLAG  *  .TRUE. 

ELSE  FLAG  a  .FALSE. 

LNVARF  »  (1.-GABHA) * LNVARF  GAN  HA*LNV ARP 

*) 

IF  (  BTSLFT  >  0  ) 

OBITAB  (  NBLCKS  )  *  HINO  (  BTSLFT,  HXNBTS  ) 


CALL  BITALO  (  OEITA8,  NBPC,  MBPS,  K,  BTSLFT,  BKSLFT  ) 

RETURN 

BHD 


NBITAL 


NON-CAUSAL  DPCM  OPTIMAL  BIT  ALLOCATION 


HID 


IDENTIFICATION 

TITLE  NBITAL 

AOTHOH  OSCAB  A.  ZUNIGA 

VEBSION  A. 01 

DATE  JULY  21,  1979 

LANGUAGE  NATFOR 

SYSTEM  IBfl-370 

PURPOSE 

THIS  HOUTINE  PERFOBHS  A  NON-CAUSAL  BIT  ALLOCATION  ON 
THE  BLOCKS  OF  AN  Id AGE 

ENT  BY  POINT 

NBITAL  (  VAHBU  F,  OBITAB,  NBLCKS,  BLKSZE,  ALPHA, 

C,  HXNBTS,  HINBTS,  BUFSZE,  NBPC,  NBPR  ) 

AHGUHENT  LISTING 

VAHBUF  BEAL 

OBITAB  INT 

NBLCKS  INT 
BLKSZE  INT 
ALPHA  BEAL 
C  BEAL 

HINBTS  INT 

HINBTS  INT 

BUFSZE  INT 
NBPC  INT 
NBPB  INT 

INCLUDE  FILSS/CO HHONS 

HACA1  INCLUDE  HACBO  FILE  FOR  TOKEN  DEFINITION 

ALGORITHM 

THE  ALGORITHM  USED  IN  THIS  ROUTINE  IS  BASED  CN  RATE  DIS¬ 
TORTION  THEORY  ASSUHPTIONS  FOB  GAUSSIAN  DATA.  UNDEB  THIS 
ASSUMPTIONS  THE  RELATION  BETWEEN  MEAN  SQUARE  QUANTIZATION 
EBBOB  AND  BIT  BATE  FOB  EACH  BLOCK  IS  GIVEN  BY  : 

MSB  »  TAB  *  EXP  (  -ALPHA*NBITS  ) 

VHEBE  MS E  MEAN  SQUABF  QUANTIZATION  EBFOB 

VAB  VARIANCE  ASSOCIATED  WITH  THE  BLOCK 


1-D  ARRAY  CONTAINING  THE  VARIANCES  OF 

THE  DPCM  CORRECTIONS  FOB  EACH  BLOCK 

1-D  OUTPUT  ABHAY  CONTAINING  THE  BIT 

ALLOCATIONS  FOB  EACH  BLOCK 

THE  NUMBER  OF  BLOCKS  IN  THE  IMAGE 

THE  SIZE  OF  EACH  BLOCK 

DISTORTION  MODEL  CONSTANT 

THE  CHANNEL  CAPACITY  IN  BITS  PER  PIXEL 

THE  ALLOWED  MAXIMUM  NUHBEB  OF  BITS  PER 

PIXEL  FOR  ANY  BLOCK 

THE  ALLOWED  MINIMUM  NUMBER  OF  BITS  PER 

PIXEL  FOR  ANY  BLOCK 

THE  SIZE  OF  THE  BIT  BUFFER 

THE  NUMBER  OF  BLOCKS  PER  COLUMN 

THE  NUMBER  OF  BLOCKS  PER  HOW 


ALPHA  DISTOHTION  MODEL  CONSTANT 

MBITS  THE  BIT  BATE 

IP  VAR  1 ,  7AH2, . . VASE  AHE  THE  VARIANCES  CF  THE  DPCH 

COBBECTIONS  FOB  THE  K  BLOCKS  IN  THE  IMAGE,  C  IS  THE 
DESIRED  CHANNEL  CAPACITY,  THEN  IT  CAN  BE  SHOWN  THAT 
THE  OPTIMAL  BIT  ALLOCATION  FOR  EACH  BLOCK  IS  GIVEN  BY: 

NBITS(K)  *  C  *  (1/ALPHA)  *  (  LN  (VARK)  -  LN  (VARF)  ) 

LM(VARF)  »  ( 1/K)  *  SUM  LN  (VABI) 

I  *  1,  K 

FOB  EXPLANATION  OF  BDFFER  HANDLING  BEFEB  TC  THE  TECHNI¬ 
CAL  BEPORT,  CHAPTER  8. 

ROUTINES  CALLED 

BITALO  BIT  ALLOCATION  OUTPUT  (GIPSY) 


*****************4*  4** ************ ******* *************************** 


SUBBOUTINE  NBITAL  (  VARBOF,  OBITAB,  NBLCKS,  3LKSZ2, 

ALPHA,  C,  MXNBTS,  MINBTS, 
BUFSZE,  NBPC/NBPB  ) 

* 

INCLUDE  MACA1 

INTEGER  OBITAB (NBLCKS)  ,  BTSLFT,  BKSLFT,  BUFSZE 
INTEGER  CBITS,  BSTATE,  BUFBTS,  BTSOUT,  BLKSZE 
REAL  VABBUF  (NBLCKS) ,  LNVABF 

* 

*  COMPUTE  THE  LOG  OF  THE  AVERAGE 

*  VARIANCE 

* 

SUM  a  0. 

DO  K  a  1,  NBLCKS 

SUM  »  SUM  ♦  ALOG  (  VARBOF  (K)  ) 

• 

LNVABF  »  SUM  /  NBLCKS 
ALPHIV  *  1.  /  ALPHA 
BTSLFT  *  C  *  NBLCKS 
CBITS  «  C 

IF  (  C  -  CBITS  >  0.  )  CBITS  «  CBITS  ♦  1 
BTSOUT  »  IROUND  (  C  *  BLKSZE  ) 

* 

#  ASSUME  BUFFER  INITIALLY  HALF  FULL 

# 

BSTATE  *  BUFSZE  /  2 

BUFBTS  »  (  BUFSZE  ♦  BTSOUT  -  BSTATE  )  /  BLKSZE 

• 

•  ALLOCATE  BITS  TO  EACH  BLOCK  AND 

•  PREVENT  OVERFLOWING  OR  UNDERFLOWING 
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*  THE  BOFFER 

» 

DO  K  *  1,  MBLCKS 

K 

V1H  *  VARBOF  ( K) 

BTHATE  *  C  ♦  ALPHIV  *  (  A LOG  (VAR)  -  LMVAB F  ) 
MBITS  *  IBOONE  (  BTBATE  ) 

IF  (  BSTATE  <=  BTSOOT  ) 

S< 

MBITS  =  9 AZO  (  MBITS,  CBITS  ) 

MBITS  »  HIMO  (  MBITS,  BTSLFT,  HZ MBTS  ) 

*) 

ELSE 

J  ( 

KBITS  »  H AZO  (  MBITS,  BIHBTS  ) 

MBITS  *  BIHO  (  MBITS,  BTSLFT,  HXNBTS,  BOFBTS  ) 

$) 

OBITAB (K)  *  MBITS 
BTSLPT  *  BTSLFT  -  MBITS 
BKSLPT  *  HBLCRS  -  K 

BSTATE  *  BSTATE  ♦  MBITS*BLKSZE  -  BTSOOT 
BOFBTS  »  (  BOFSZS  ♦  BTSOOT  -  BSTATE  )  /  BLXSZE 
IF  (  BTSLFT  <*  BKS LFT*HINETS  )  3REAK 

S) 

* 

LSTBLK  *  K 

IF  (  BKSLFT  >»  t  ) 

S{ 

KK  =  NBLCKS  -  BKSLFT  *  1 
DO  K  *  KK,  M8LCKS 
OBITAB  (K)  =  HIMBTS 

S) 

* 

CALL  BITALO  (  OBITAB,  NBPC,  NBPR,  LSTBLK,  BTSLFT, 
BKSLFT  ) 

* 

RET OHM 
END 
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— BITilO  BIT  ALLOCATION  OUTPUT  HID 

IDENTIFICATION 

TITLE 
AOTHOB 
7EBSION 
DATE 

LANGUAGE 
SYSTEM 

PURPOSE 

THIS  ROUTINE  WRITES  TO  THE  USER'S  TERMINAL  INFORMATION 
CONCERNING  THE  RESULT  OF  A  BIT  ALLOCATION  PROCESS- 

ENTRY  POINT 

BITALO  (  OBITAB,  NBPC,  NBFR,  LSTBLK ,  BTSLFT ,  BKSLFT  ) 
ARGUMENT  LISTING 


OBITAB 

I5T 

THE 

OUTPUT 

BIT  ALLOCATION  TABLE 

NBPC 

I  NT 

THE 

NUMBER 

OF  BLOCKS  PER  COLUMN 

NBPR 

INT 

THE 

NUMBER 

OF  BLOCKS  PER  ROW 

LSTBLK 

I  NT 

THE 

LAST  BLOCK  ALLOCATED  NON  ZERO  BITS 

BTSLFT 

INT 

THE 

BITS  LEFT  IN  THE  BUFFER 

BKSLFT 

INT 

THE 

BLOCKS 

LEFT  (ALLOCATED  ZERO  BITS) 

INCLUDE  FILES/COMHONS 

MAC A 1  INCLUDE  HACBO  FIE  FOR  TOKEN  DEFINITION 

TTCOH  INCLUDE  INCLUDE  FILE  FOR  TRRHINAL  &  RUNFILE  I/O 

ROUTINES  CALLED 

NONE 


BITALO 

OSCAR  A.  ZUNIGA 
A. 01 

JULY  22,  1979 

RATFOR 

IBM-370 


a******************************************************************* 


SUBROUTINE  BITALO  (  OBITAB,  NBPC,  NBPR,  LSTELK,  BTSLFT, 

BKSLFT  ) 


INCLUDE  HACA1 

IMPLICIT  INTEGER  {  A  -  Z  ) 

INCLUDE  TTCOH 

INTEGER  OBITAB  (  NBPR,  NBPC  ) 

WRITE  {  TTYOT,  6000  )  LSTBLK,  BTSLFT,  BKSLFT 
6000  FORMAT  (  /103f,  ’LAST  BLOCK  BITS  LEFT  BLOCKS  LEFT',//, 
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* 

6010 

I 


6020 

* 


13X,  14.  SI,  14,  8X,  I4  > 

SBITE  (  TTIOT,  6010  ) 

FOHSAT  {  //  > 

D°SBITE  \  TTYOT,  602  0  )  (  OBITAB(I,J),  I 

FOBHAT  (  TO*'  * 

BETORN 

END 


1,  NBPR  ) 
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FIIBLK 


FIX  BOTTOM  AND  RIGHTMOST  IMAGE  BLOCKS 


MID 


IDENTIFICATION 

TITLE 

AUTHOR 

7E5SI0N 

DATE 

LANGUAGE 

SYSTEM 

PURPOSE 


PIXBLK 

OSCAR  A.  ZUNIGA 
A. 01 

MAY  15,  1979 

RATFOR 

IBM-370 


THIS  ROUTINE  FIXES  THE  BOTTOM  AND/OR  RIGHT  EDGES  OF  THE 
BOTTOM  OR  RIGHTMOST  BLOCKS  OF  THE  IMAGE. 

ENTRY  POINT 


FIIBLK  (  INBLK,  IB,  JB,  NBPC,  NBPR ,  NR,  NC  ) 
ARGUMENT  LISTING 


INBLK 

INT 

IB 

INT 

JB 

INT 

NBPC 

INT 

NBPR 

INT 

NR 

INT 

NC 

INT 

THE  INPUT  BLOCK 

THE  POSITION  OF  A  BLOCK  IN  A 

COLUMN  OF  BLOCKS 

THE  POSITION  OF  A  BLOCK  IN  A 

ROW  OF  BLOCKS 

THE  NUMBER  OF  BLOCKS  PER  COLUMN 
THE  NUMBER  OF  BLOCKS  PER  ROW 
THE  NUMBER  OF  ROWS  IN  A  BLOCK 
THE  NUMBEB  OF  COLUMNS  PER  BLOCK 


ALGORITHM 


IF  A  BLOCK  AT  THE  BOTTOM  IS  TO  BE  FIIED  THE  LAST 
ROW  IN  THE  BLOCK  IS  REPLACED  BY  THE  NEXT  TO  THE 
LAST  BOW.  IF  A  BLOCK  AT  THE  RIGHT  IS  TO  BE  FIXED 
THE  LAST  COLUMN  IN  THE  BLOCK  IS  REPLACED  BY  THE 
NEIT  TO  THE  LAST  COLUMN. 

ROUTINES  CALLED 

NONE 


*******************  ************************************41********* 

SUBROUTINE  FIXBLK  (  INBLK,  IB,  JB,  NBPC,  NBPR, 

NR,  NC  ) 

IMPLICIT  INTEGER  (  A  -  Z  ) 

INTEGER  INBLK  (  NR,  NC  ) 


*  ** 


* 

#  COBEECT  BLOCKS  AT  THE  FIGHT 

#  AND  AT  THE  BOTTOH 

# 

I?  (  JB  »»  NBPR  ) 

DO  K  *  1,  MB 

IBBLK  (  K,  HC  )  »  INSLK  (  R,  HC- 1  ) 

# 

IP  (  IB  «  HBPC  ) 

DO  K  *  1,  HC 

IHBLK  (  HB,  K  )  *  INBLK  (  HB-1,  K  ) 

I 

BETUBN 

BSD 
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--GETEGS  GET  NEIGHBORING  EDGES  FROM  PREVIOUS  BLOCKS 

IDENTIFICATION 


TITLE 

A0THOR 

VERSION 

DATE 

LANGUAGE 

SYSTEM 


GETEGS 

OSCAR  A.  ZDNIGA 
A. 01 

MAI  16,  1979 

RATFOR 

IBM-370 


PURPOSE 


GIVEN  THE  POSITION  OF  A  BLOCK  IN  AN  IMAGE  THIS  ROUTINE 
OBTAIN  THE  NEIGHBORING  EDGES  COMING  FROM  PREVIOUS  PRO¬ 
CESSED  TOP  AND  LEFT  BLOCKS. 


ENTRY  POINT 

GETEGS  (  TOPEDG ,  LFTEDG,  CORNH,  NPPL,  NLIN , 
IB,  J8,  NR,  NC,  Z,  ZLEN  ) 

ARGUMENT  LISTING 


TOPEDG 

INT 

LFTEDG 

I  NT 

COP  NR 

INT 

NPPL 

INT 

NLIN 

INT 

IB 

INT 

JB 

INT 

NR 

INT 

NC 

INT 

Z 

INT 

ZLEN 

INT 

1-D  ARRAY  OF  SIZE  NPPL  CONTAINING 
THE  NEIGHBORING  TOP  EDGES  COMING 
FROM  THE  PREVIOUS  PROCESSED  ROW  OF 
BLOCKS 

1-D  ARRAY  OF  SIZE  NLIN  CONTAINING 
THE  NEIGHBORING  LEFT  EDGES  COMING 
FROM  THE  PREVIOUS  PROCESSED  COLUMN 
OF  BLOCKS 

THE  PREVIOUS  PROCESSED  VALUE  AT 
THE  CORNER  OF  A  GIVEN  BLOCK 
THE  NUMBER  OF  POINTS  PER  LINE 
THE  NUMBER  OF  LINES  IN  THE 
IMAGE 

THE  POSITION  OF  A  BLOCK  IN  A 
COLUMN  OF  BLOCKS 
THE  POSITION  OP  A  BLOCK  IN  A 
ROW  OF  BLOCKS 

THE  NUMBER  OF  ROWS  PEP.  BLOCK 
THE  NUMBER  OF  COLUMNS  PER  BLOCK 
1-D  ARRAY  CONTAINING  THE  EDGES 
NEIGHBORING  TO  A  GIVEN  BLOCK 
IN  THE  FOLLOWING  ORDER:  CORNER, 
LEFT  EDGE,  TCP  EDGE. 

THE  SIZE  OF  THE  ARRAY  Z 


ROUTINES  CALLED 


NONE 


t 


*************************************************************  ******** 
* 

» 


» 


» 

» 

t 


» 


SUBROUTINE  GETEGS  (  TOPEDG,  LFTEDG,  COHNR, 

NPPL,  JILIN,  IB,  JB, 

NH,  NC,  2,  2LEN  ) 

IMPLICIT  INTEGER  {  A  -  1  ) 

INTEGER  2  (  ZLEN  ) 

INTEGER  TOPEDG  (  NPPL  )  ,  LFTEDG  (  NLIN  ) 

GET  THE  EDGES 

2(1)  *  CORNS 
DO  K  3  1 ,  NR 

Z  (  K  ♦  1  )  *  LPTEDG  (  HR*  (IB— 1 )  *  K  ) 

DO  K  =  1  ,  NC 

Z  (  NR  ♦  K  *  1  )  =  TOPEDG  (  NC*(JB-1)  ♦  K  ) 


RETURN 

END 
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-BKDPCH 


OPCfl  A  BLOCK  OF  DATA 


MID 


IDENTIFICATION 

TITLE  BKOPCM 

AUTHOR  OSCAR  A.  ZUNIGA 

VERSION  A. 01 

DATE  JULY  9,  1979 

LANGUAGE  RATFOR 

SYSTEM  IBM-370 

PURPOSE 

THIS  SUBROUTINE  QUANTIZES  A  BLOCK  OF  DATA  USING  A  MAX 
QUANTIZER;  DPCH  THAT  BLOCK  USING  ONE  OF  SEVERAL  POSSIBLE 
DPCM  TECHNIQUES;  AND  FINALLY  COMPUTES  THE  MEAN  SQUARE 
ERROR  BETWEEN  INPUT  AND  OUTPUT  BLOCK. 

ENTRY  POINT 

BKDPCH  (  IN BLK,  OTBLK,  LFBLK,  Z,  ZLEN,  MEAN , 

VAR,  NR,  NC,  NBITS,  FRAC,  1ST, 

SELECT,  ERROR  ) 

ARGUMENT  LISTING 


INBLK 

I  NT 

OTBLK 

IHT 

LFBLK 

INT 

Z 

I  NT 

ZLEN 

INT 

MEAN 

REAL 

VAR 

REAL 

NR 

INT 

NC 

INT 

MBITS 

INT 

FRAC 

REAL 

1ST 

DINT 

SELECT 

INT 

ERROR  BEAL 


2-D  ARRAY  TO  HOLD  THE  INPUT  BLOCK 
2-0  ARRAY  TO  HOLD  THE  OUTPUT  BLOCK 
2-0  ARRAY  TO  HOLD  A  LOW  PASS  FILTERED 
VERSION  OF  THE  INPUT  BLOCK 
TOP  AND  LEFT  NEIGHBORING  EDGES  OF  THE 
INPUT  BLOCK  IN  THE  FOLLOWING  ORDER: 
CORNER,  LEFT  EDGE,  TOP  EDGE. 

THE  LENGTH  OF  THE  EDGES  ARRAY  Z 

THE  MEAN  OF  THE  DPCM  CORRECTIONS 

THE  VARIANCE  OF  THE  DPCM  CORRECTIONS 

NUMBER  OF  ROWS  IN  INPUT  BLOCK 

NUMBER  OF  COLUMNS  IN  INPUT  BLOCK 

THE  NUMBER  OF  QUANTIZING  BITS 

FRACTION  OF  STANDARD  DEVIATION  THAT 

RANGE  OF  DPCM  DITHER  SHOULD  BE 

SEED  FOR  UNIFORM  RANDOM  NUMBER  GENERATOR 

SELECTION  NUMBER  FOR  DPCM  TECHNIQUES 

(2)  2-D  DPCM  FLAT  MODEL  LSE 

(3)  MOD  DPCH  FLAT  MODEL  LSE 

(4)  2-D  DPCM  FLAT  MODEL  MVE 

(5)  HOD  DPCM  FLAT  MODEL  MVE 

(6)  2-D  DPCM  SLOPED  MODEL  LSE 

(7)  MOD  DPCM  SLOPED  MODEL  LSS 

(8)  2-D  DPCM  SLOPED  MODEL  MVE 

(9)  MOD  DPCM  SLOPED  MODEL  MVS 

THE  MEAN  SQUARE  ERROR  BETWEEN  INPUT  AND 
OUTPUT  BLOCKS 
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ROUTINES  CALLED 


EGSINT  2-D  INTERPOLATION  BETWEEN  EDGES  (GIPST) 
QTZSAfl  QUANTIZATION  END  POINTS  AND  BEANS  (GIPST) 
DPCB2L  TWO  DIMENSIONAL  (  2-D  )  DPCR  (GIPST) 
DPCMXX  MODIFIED  2-D  DPCM  (  USING  LPF  BLOCK  )  (GIPST) 
HS EBB  MEAN  SQUARE  ERROR  (GIPST) 


***** ************* ****************************************** ********  < 


SUBROUTINE  BKDPCH  (  INBLK,  OTBLX,  LFBLK,  Z,  ZLEN,  MEAN, 

VAR,  NR,  NC,  MBITS,  FRAC,  1ST, 
SELECT,  ERROR  ) 

» 

#  TTPE  STATEMENTS 

• 

IMPLICIT  INTEGER  (  A  -  Z  ) 

INTEGER*®  1ST 

INTEGER  XNBLK  (NR,  NC)  ,  OTBLK  (NB  , NC)  ,  LFBLK  (NR,  NC) 

INTEGER  Z  (  ZLEN  ) 

INTEGER  LNIN  (20) ,  LNOUT(20),  LNPOUT(20) 

INTEGER  LNLPF  (20)  ,  LNXTLP(20) 

INTEGER  QTABLE  (512) 

INTEGER  WGTS  ( 16) ,  iGTSX{27) 

REAL  QENDS  (65) ,  QHEANS  (64) ,  ERROR,  MEAN,  7 AH 
HEAL  RANGE,  FRAC,  SQHT 
DATA  MAX  /255/ 

DATA  WGTS  /  4*1, 

5,  5,  7,  7, 

-1/  0,  1,  2, 

-7,  6,  20,  35  / 

DATA  WGTS X  /  2,  2,  1,  2,  1,  1,  2,  1,  1, 

10,  7,  10,  7,  5,  7,  10,  7,  10, 

9*1  / 

t 

#  INITIALIZATIONS 

» 

NLE7LS  *  2**N BITS 
NCP 1  *  NC  ♦  1 
NCP2  *  NC  ♦  2 
BLKSZE  *  NR*MC 
RANGE  *  FRAC*SQRT(7AR) 

* 

»  TREAT  MBITS  *  0  SEPARATELY 

IF  (  MBITS  **  0  ) 

$( 

CALL  EGSINT  (  Z,  ZLEN,  INBLK,  OTBLK,  NR,  NC, 

MAX,  1ST  ) 

CALL  MSERB  (  INBLK,  OTBLK,  ERROR,  NPPL  ) 

RETURN 

*) 
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COMPUTE  THE  END  POINTS  AND  MEANS  USING 
NAZ  QUANTIZER 

CALX  QTZSAM  (  BEAN,  VAB,  NEITS,  QENDS,  QBEANS  ) 


QENDS  (1)  *  -MAX  -  1 
QENDS  (NLEVLS  +  1)  =  MAX 

COMPUTE  SIZE  OP  QUANTIZING  TABLE 

NTABLE  =  2*MAX  ♦  1 

COMPUTE  THE  QUANTIZING  TABLE 


DO  J  *  1,  NLEVLS 

S  ( 

LOHEND  »  QENDS  (J)  ♦  MAX  ♦  2 

OPPEND  *  QENDS  (J+1)  ♦  MAX  ♦  1 
DO  I  *  LOWEND,  UPPEND 

QTABLE(I)  *  IROUND  (QMEANS  (J)  ) 

S) 


COMPOTE  THE  BLOCK  OF  OUTPUT 

LNPOUT  (1)  *  Z{1) 

DO  J  *  1,  NC 

LNPOUT  (J+1)  »  Z  ( 1  ♦  NR* J) 

IF  (  SELECT  *=»  3  )  SELECT  »  7 
IP  (  SELECT  «  9  )  SELECT  »  5 

IF  (  S ELECT*- 2  l  SELECT =*4  |  SEL£CT=»6  |  SELECT-=B  ) 

J  ( 

SLCT  *  (SELECT- 2)  *2  «•  1 
DO  I  «  1,  NR 

*  ( 

LNIN  (1)  »  Z  (1*1) 

DO  J  *  1,  NC 

LNIN  (J+1)  «  INBLK  (I,J) 

CALL  DPCM2L  (  LNIN,  NCP 1 ,  LNPOUT,  LNOUT , 

QTABLE,  NTABLE,  MAX,  RANGE, 

1ST,  SGTS  (SLCT) ,  NGEN,  NOSED  ) 

DO  J  *  1,  NC 

S( 

OGTNE  *  MINO  (  MAX,  LNOUT  (J+1)  ) 

OTBLK  (I,  J)  ■  OGTNE 
LNPOUT  (J*  1)  «  OGTNE 
S) 

LNPOUT  ( 1)  »  Z  (!♦  1 ) 

S) 

*) 
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§ 

IF  (  S£L£CT*»5  1  SELECT*=7  ) 

$( 

SLCT  *  (SELECT-3)  *9/2  ♦  1 
DO  I  *  1 ,  MB 
*  ( 

II  *  HIHO  (  1+1,  HR  ) 

LHIH  (  1)  »  2  (1*1) 

DO  J  *  1,  NC 

S( 

LHIH  <J*1)  =  IHBLK  (I, J) 

LHLPT(  J*1)  =  L  F8LK  (I ,  J) 

LHXTLP  (J*  1)  =  LFBLK  (1 1 ,  J) 

S) 

LHXTLP  (1)  *  LNXTLP  (2) 

CALL  DPCBXX  {  LHIH,  HCP 1 ,  LHLPF,  LHXTLP,  LHPOOT, 
LHOOT,  QTABLE,  HTABLE,  MAX.  RANGE, 
1ST,  WGTSX  (SLCT)  ,  HGBH ,  NOSED  ) 

DO  J  -  1  ,  NC 
$( 

OGTHE  =  NINO  (  MAX,  LHOOT  (J+1)  ) 

OTBLK  (I, J)  =  OGTHE 
LHPOOT  (J*  1)  =  OGTHE 

S) 

LNPOOT  (  1 )  =  2(1*1) 

S) 

$) 

» 

#  COHPOTE  THE  SMS  ERROR 

* 

CALL  MS  ERR  (  IHBLK,  OTBLK,  ERROR,  NPPL  ) 

RETOEN 

EHD 
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--EGSINT  2-D  INTERPOLATION  BETWEEN  EDGES 

IDENTIFICATION 

TITLE 
AUTHOR 
VERSION 
DATE 
LANGUAGE 
SYSTEM 

PURPOSE 

THIS  ROUTINE  PERFORMS  A  2-D  INTERPOLATION  BETWEEN  THE 
EDGES  OF  A  BLOCK  IN  A  DPCH  LIKE  FASHION,  AND  THEN 
CORRECTS  THAT  ESTIMATION  USING  THE  MEAN  AND  VARIANCE 
OF  THE  DIFFERENCE  BETWEEN  INPUT  BLOCK  AND  INTERPOLATED 
BLOCK 

ENTRY  POINT 


EGSINT  {  Z,  ZLEN,  INBLK,  OTBLK,  NR,  NC,  MAX,  1ST  ) 


ARGUMENT  LISTING 

Z 

I  NT 

THE  TOP  AND  LEFT  NEIGHBORING  EDGES 
OF  A  BLOCK  IN  THE  FOLLCWING  ORDER: 
CORNER,  LEFT  EDGE,  TOP  EDGE. 

ZLEN 

I  NT 

SIZE  OF  THE  EDGES  ARRAY 

INBLK 

INT 

THE  INPUT  BLOCK 

OTBLK 

I  NT 

THE  ESTIMATED  OUTPUT  BLOCK  BASED  ON 
THE  NEIGHBORING  EDGES  OF  THE  INPUT 
BLOCK 

NR 

INT 

NUMBER  OF  ROWS  IN  THE  BLOCKS 

NC 

INT 

NUMBER  OF  COLUMNS  IN  THE  BLOCKS 

MAX 

INT 

THE  MAXIMUM  GRAYTONE  IN  A  BLOCK 

1ST 

DIN 

SEED  FOB  UNIFORM  RANDOM  NUMBER 
GENERATOR 

ALGORITHM 

THE  INTERPOLATION  IS  DONE  IN  A  DPCH  LIKE  FASHION  BUT 
NO  CORRECTIONS  ARE  ADDED.  THE  TOP  AND  LEFT  NEIGHBORING 
EDGES  COMING  FROM  PREVIOUS  PROCESSED  BLOCKS  ARE  USED 
TO  INITIALIZE  THE  ALGORITHM.  THE  INTERPOLATED  BLOCK  IS 
CORRECTED  BY  ADDING  UNIFORM  NOISE  WHOSE  MEAN  AND  VARIANCE 
EQUAL  THAT  OF  THE  DIFFERENCE  BETWEEN  INPUT  AND  INTERPOLA¬ 
TED  BLOCK 

ROUTINES  CALLED 

MVAHDL  MEAN  S  VARIANCE  OF  A  DIFFERENCE  BLOCK  (GIPSY) 
RCM  UNIFORM  BANDOH  NUMBER  GENERATOR  (GIPSY) 


EGSINT 

OSCAR  A.  ZUNIGA 
A. 01 

JULY  3,  1979 

8ATF0R 

IBM-370 


MID 
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* 

f ***********  ****** ****** ******** *«••** ******** *********************** 
* 

* 


* 


i 


SOBROOTINE  EGSINT  (  Z,  Z1EN,  I NBLK,  OTBLK,  NR ,  NC, 

MAX,  1ST  ) 

IMPLICIT  INTEGER  (  A  -  Z  ) 

INTEGER  Z  (  ZLEN  ),  I NBLK  (  NR,  NC  ),  OTBLK  (  NR,  NC  ) 
INTEGER  LNPCOT  (  20  ) ,  LNOOT  (  20  ) 

REAL  BEAN,  VAR,  STDEV,  SQRT ,  RCM,  DITHER 


BLKSZE  =  NR  *  NC 
NCP1  =  NC  ♦  1 
LNPOOT  (  1)  *  2(1) 

DO  K  *  1,  NC 

LNPOOT  (K*  1)  *  Z  ( 1  +  NR  *K ) 


DO  I  =  1,  NR 
S{ 

LNOOT  (1)  3  2  (T ♦  1 ) 

DO  J  -  2,  NCP 1 

5  ( 

J1  3  MINO  (  J*1,  NC? 1  ) 

ISUfll  3  LNPOOT  ( J- 1 )  «•  LNPOOT  (J) 

ISUH2  3  LNPCOT  {J  1)  *  LNOUT  (J-1) 

LNOUT  (J)  =  (  ISOM  1  *  ISUM2  *  2  )/  4 
S) 

DO  J  =  1,  NC 
S( 

OTBLK  (I , J)  =  LNOOT (0*1) 

LNPOOT  (J*1)  3  LNOOT  (J*1) 

S) 

LNPOOT  (1)  3  Z  (I*  1) 


CALL  HVAHDL  (  INBLK,  CTBLK,  BEAN ,  VAR,  BLKSZE  ) 
STDEV  »  SQRT  (  VAR  ) 

DO  I  3  1  ,  NR 
DO  J  *  1,  NC 

*( 

DITHER  3  MEAN  *  STDEV  *  (  RCM(IST)-0.5  ) 
OGTNE  =  OTBLK  (I, J)  *  IROOND  (  DITHER  ) 

OGTNE  3  SAXO  (  0,  OGTNE  ) 

OGTNE  3  MINO  (  OGTNE,  MAX  ) 

OTBLK  (I,J)  3  OGTNE 

S) 

RETORN 

END 
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C — QTZSAM  SAX  QUANTIZATION  END  POINTS  AND 

C 

C  IDENTIFICATION 
C 

C  TITLE 

C  AOTHOB 

C  VERSION 

C  DATE 

C  LANGUAGE 

C  SYSTEM 

C 

C  UPDATE  #  1 
C 

C  AUTHOR 

C  DATE 

C  VERSION 

C  LANGUAGE 

C  PURPOSE 

C 
C 

c 

C  PURPOSE 
C 

C  GIVEN  THE  NUMBER  OP  BITS,  THIS  ROUTINE  RETURNS  THE  UPPER 

C  BOUNDARIES  AND  THE  MEANS  OF  A  MAX  QUANTIZER. 

C 

C  ENTRY  POINT 

C 

C  QTZSAM  (  XDHEAN,  XDVAR,  MBIT,  QENDS,  QMEANS  ) 

C 

C  ARGUMENT  LISTING 

C 


C 

XDHEAN 

BEAL 

MEAN  OF  THE  DISTRIBUTION 

c 

XDVAR 

REAL 

VARIANCE  OF  THE  DISTRIBUTION 

c 

NBIT 

INT 

NUMBER  OF  BITS  AVAILABLE  (  <= 

c 

QENDS 

BEAL 

THE  2**N8IT* 1  END  POINTS 

c 

QMEANS 

REAL 

THE  2**NBIT  MEANS 

C 

C  ALGORITHM 


QTZSAM 

SAM  SHANMUGAM 
A. 01 

OCTOBER  6,  1973 

FORTRAN 

IBM-370 


OSCAR  A.  ZUNIGA 
NOV  7,  1978 
B.01 

FORTRAN  IV 

DOCUMENTATION  CHANGED  TO  SYSTEM 
STANDARDS. 


C 

C  LET  X(1),  X  (2)  , .  • ,  X(N*1),  AND  Y(1),...,  Y  (N)  BE  THE 

C  THE  QUANTIZER  END  POINTS  AND  MEANS,  IE.  IF  THE  VABIA- 

C  BLE  BEING  QUANTIZED  HAS  A  VALUE  IN  THE  RANGE  OF  X ( J) 

C  TO  X<J«-1),  THEN  THE  QUANTIZER  OUTPUT  WILL  BE  EQUAL 

C  TO  Y(J).  THE  FIRST  AND  LAST  END  POINTS  ASF  USUALLY 

C  CHOSEN  TO  BE  -  AND  ♦  INFINITE  RESPECTIVELY.  THE  REHAI- 

C  HING  X{J)  'S  AND  Y  (J)  'S  ABE  CHOSEN  BY  MINIMIZING  THE 

C  MEAN  SQUARE  ERROR. 

C 

C  D  *  E  (  (XIN-XOUT) **2  ) 

C 

C  WHERE  E  STANDS  FOR  THE  EXPECTED  VALUE,  XIN  IS  THE  IN- 

C  PUT  TO  THE  QUANTIZER,  AND  XOUT  IS  THE  OUTPUT  OF  THE 

C  QUANTIZER.  THE  SOLUTION  TO  THIS  PBCBLEM  IS  GIVEN  BY: 


HID 
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no  o  on  no  nnooo 


(D 

(2) 


N 


N 


* 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


I(J)  *  2*1  (J)  -  I(J-I)  J  ■  2,  3,...., 
INTEGRAL  (  (Z-Y  ( J)  )  **2*P  (Z)  )  *  0,  J  » 


2, 


P(-)  IS  THE  PROBABILITY  DENSITY  FUNCTION  OF  THE  INPUT 
SIGNAL.  EQUATIONS  1  AND  2  ARE  VALID  FOR  ANY  DISTRIBUT¬ 
ION.  FOR  NORMAL  (0 , 1 )  DISTRIBUTION  THE  VALUES  OF  THE 
ENDPOINTS  AMD  HEANS  ARE  SHOWN  TABULATED  IN  REFERENCES 
1  AND  2.  THIS  SUBROUTINE  USES  THESE  TABLES. 


ROUTINES  CALLED 
NONE 


REMARKS 

REFERENCES: 

1.  J.  MAX,  QUANTIZING  FOB  MINIMUM  DISTORTION,  IEEE 
TRANSACTIONS  ON  INFORMATION  THEORY,  1960,  PP  7-13. 

2.  P.  A.  WINTZ  AND  A.  J.  KURTENBACH,  ANALYSYS  OF  PCM 
TELEMETRY  SYSTEMS,  PURDUE  UNIVERSITY  TECH.  REPORT, 
TH-EE — 67-- 1 9,  DEC  1967. 


SUBROUTINE  QTZSAM  ( XDHE A N , XD V A R , N BIT , QENDS , QB E ANS) 

SET  UP  ARRAYS  AND  TABLES 

DIMENSION  X1{1)  ,Y  1  (1)  , 12  (2)  , Y2  (2) 

DIMENSION  X3  (4)  ,  Y3{4)  ,X4  (8)  ,14  (8)  ,  X5  (16)  ,Y5  (16) 
DIMENSION  X6  (32)  ,  Y  6  ( 3  2)  ,  X7  { 6  4)  ,  Y7  ( 64)  ,  X8  (  128)  ,  Y8  { 1  28) 
DIMENSION  QENDS  (65)  ,QHEANS  (64) 


DATA  X1/0.0/, Y1/0.7980/ 

DATA  X 2/0. 0,0. 981 6/, Y2/0.4528, 1.510/ 

DATA  X 3/0. 0,0. 5 00 6, 1 .050, 1 .748/, Y 3/0. 245 1, 0. 7560 , 1 . 344 , 2. 152/ 

DATA  X4/0 .0,0. 2582,0. 5224,0.7996,1.099, 1.437,1.844, 

*2.401/ 

DATA  Y4/0.  128  4,0.3881,0.6568,  0.94  24,  1.25  6,  1.618, 

*2.069,2.733/ 

DATA  X5/0. 0,0. 1320,0.2648,0. 3991,0.5351,0. 6761,0.8210, 
•0.9718, 1. 130, 1. 299, 1.482, 1.682, 1.908,2. 174,2.505,2.977/, 

*  Y5/0. 0659,0. 1981,0. 3314,0. 4668,0.6050,0.7473,0.8947, 

*1.049, 1.212, 1.387, 1. 577, 1.788,2.029, 2. 3 1 9, 2. 692 , 3 .263/ 
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•  0 


nnnnn 


1 


COMPUTE  THE  STAND ABO  DEVIATION 

XSD*SQBT (XDVAB) 

NN»2**(  NBIT-1) 

MNi*2*HN+1 

NNX»FLOAT(2*NN) 

ST2P*6. 0/NNX 


PICK  UP  THE  APPROPRIATE  ENTRIES  FBON  THE 
TABLES  AND  STICK  THEN  IN  QENDS  QND  QHEANS 
ADJUST  FOB  BEAN  AND  ATANDARD  DEVIATION. 


C 

C 

c 

c 

c 


c 


DO  10  1*1,  NN 

GO  TO  (1,2, 3, 4,5,6, 7) ,NBIT 

1  NNI-NN+I 

QENDS (NNI) *X1  (I) *XSD*XDHEAN 
QHEANS (NNI) *T 1  (I)  *XSD*XDHBAN 
GO  TO  9 

2  NNI-NN+I 

QENDS  (NNI)  *X2  (I)  *XS  D+XDHEAN 
QHEANS (NNI) *12  (I) •XSD+XDHEAN 
GO  TO  9 

3  NNI*NN+I 

QENDS  (NNI)  *X3  (I)  *XSD+XDHEAN 
QHEANS (NNI) *13  (I) *XSD*XDH£AN 
GO  TO  9 

4  NNI*NN+I 

QENDS (NNI) *X4  (I) *XSD*XDHEAN 
QHEANS (NNI) *Y4  (I) *XSD*XDHEAN 
GO  TO  9 

5  NNI=HN*I 

QENDS (NNI) *X5  (I) *XSD>XDHEAN 
QHEANS  (NNI)  *T5  (I)  *XSD+XDHE AN 
GO  TO  9 

6  NNI*NN-»I 

QENDS  (NNI)  *  (1-1)  *STEP*XSD*XDHEAN 
QHEANS (NNI)*  (1-0.5) *STEP*XSD+ XDHEAN 
GO  TO  9 

7  NHI*NN+I 

QENDS  (NNI)  *X7  (I)  *XSD*XDflEAN 
QHEANS (NNI) *T7  (I) *XSD*XDHEAN 
GO  TO  9 

8  NMI*NN«-I  • 

QENDS (NNI) *X8  (I) •XSD+XDHBAN 
QHEANS (NNI) *T8  (I) *XSD*XDHEAN 

9  CONTINUE 

10  CONTINUE 

SET  OP  END  POINTS  AND  HEANS  ON  THE  LONER 
SIDE  OF  THE  HEAR. 

NNH*NN- 1 
NHID*NN* 1 
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n  n 


TT 


DO  12  I*  1 , NMR 
C 

S2QeSdS(S2)  *QESDS  ♦  2.0  *  QENDS  {  HSID  ) 

C 

12  CONTINUE 

FIRST  AMD  LAST  END  POIMTS  ARE  -  AMD  + 
INFINITY  RESPECTIVELY) 

QENDS  (1)  =-0-  1  E> 6 
QEMDS  (MMN)  =0.  1E»6 

DO  13  1*1,  MM 

QBEANS  (I) =Q«EAMS  (I  1)  *(-1.0)  *  2.0  *  QENDS  (  MRID  ) 

C 

13  CONTINUE 
C 

RETURN 

END 
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c- 

f 

-DPCM2L 

TBO  DIMENSIONAL  DPCM  MID 

V- 

c 

IDENTIFICATION 

V* 

c 

TITLE 

DPCM2L 

c 

AUTHOR 

ROBERT  M.  HARALICK 

c 

VERSION 

A. 01 

c 

DATE 

MARCH  1977 

c 

LANGU1GE 

FORTRAN 

c 

f 

SYSTEM 

PDP-15 

V» 

c 

c 

UPDATE  »  1 

c 

AUTHOR 

OSCAR  A.  ZUNIGA 

c 

DATE 

OCTOBER  10#  1978 

c 

VERSION 

B.01 

c 

LANGUAGE 

FORTRAN  IV 

c 

PURPOSE 

THE  ARRAY  NT  HAS  BEEN  ADDED  TO  THE 

c 

ARGUMENT  LIST  TO  COMPUTE  THE  DPCM 

c 

c 

PREDICTOB  .USING  A  BEIGHTED  AVERAGE 

V* 

c 

p 

PURPOSE 

w 

c 

THIS  SUBROUTINE  IMPLEMENTS  A  SIMPLE  TBO  DIMENSIONAL 

c 

p 

LINEAR 

FOURTH 

ORDER  DPCM  FOR  A  LINE  OF  DATA 

c 

p 

ENTRY  POINT 

* 

c 

DPCH2L 

(  LNIN , 

NUHPPL,  LNPOUT,  LNOUT,  QTABLE,  NTABLE, 

c 

p 

MAX, 

RANGE,  1ST,  WT,  NGEN,  NUSED  ) 

c 

p 

ARGUMENT  LISTING 

c 

LNTN 

I  NT 

INPUT  LINE  OF  DATA 

c 

NUHPPL 

INT 

NUMBER  OF  VALUES  IN  INPUT  LINE 

c 

LNPOUT 

I  NT 

PREVIOUS  OUTPUT  LINE 

c 

LNOUT 

INT 

CURRENT  OUTPUT  LINE 

c 

QTABLE 

INT 

QUANTIZING  TABLE 

c 

QTABLE  (IDIF)  GIVES  THE  RECONSTRUCTED 

c 

VALUE  FOR  ANY  DIFFERENCE  OF  VALDE  IDIF 

c 

NTABLE 

INT 

LENGTH  OF  QUANTIZING  TAELE 

c 

MAX 

INT 

MAXIMUM  VALUE  OF  AN  INFUT 

c 

RANGE 

SEAL 

RANGE  OF  UNIFORMLY  DISTRIBUTED  DITHER 

c 

1ST 

DINT 

RANDOM  NUMBER  GENERATOR  SEED 

c 

NT 

INT 

HEIGHTS  FOR  COMPUTING  PRECICTOR 

c 

NGEN 

INT 

NUMBER  OF  OUTPUT  RECORDS  GENERATED 

c 

p 

NOSED 

INT 

NUMBER  OF  INPUT  RECORDS  USED 

Vr 

c 

p 

INTERNAL  VARIABLES 

w 

c 

IPRED 

INT 

PREDICTED  VALUE,  COMPUTED  FROM  SUM  OF 

c 

THE  FOUR  NEAREST  NEIGHBORS  ABOVE  AND  TO 

c 

THE  LEFT  OF  THE  CURRENT  (C,D,E,R)  : 

c 
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nnoonnoooofiono 


A  B  C  D  2  P 
P  Q  R  S 


(  PREVIOUS  LINE  ) 

(  CURRENT  LINE,  COL  S  ) 


ROUTINES  CALLED 


HAXO  MAXIMUM  OF  A  SET  OP  INTEGERS 
IBOOND  ROUND  OFF  TO  NEAREST  INTEGER 

aiNO  minimum  of  a  set  of  integers 

RCB  UNIFORM  RANDOM  NUMBER  GENERATOR 


(SYSTEM  ROUTINE] 
(rJSEFt  ROUTINE) 
(SYSTEM  ROUTINE; 
(SYSTEM  ROUTINE; 


SUBROUTINE  DPCH2L(  LNIN ,  NUMPPL,  LNPOUT,  LNCUT,  QTABLE, 

2  NTABLE,  MAX, RANGE, 1ST,  WT , NGEN ,  NUSED  ) 

INTEGER*4  1ST 

INTEGER  LNIN  (NUMPPL)  , LNPOUT  (NUMPPL)  , LNOUT ( NUMPPL) 

INTEGER  QTAHL2  (NTABLE)  ,  WT  (4)  ,  DPCSUH 


WT  (4) 


NHHLZF  *  8T(1)  +  WT(2)  ♦  WT(3) 

IRND  =  NRMLZE/2 

SAX  1=  UMAX 
LNOUT  ( 1)  *LNIN  (  1 ) 


DO  1  1=2, NUMPPL 

DITHER* (BCR (1ST) 5)  *RANGE 

I DTHR= ISO  UN  D (DITHER) 

J*SI50  (I>  1,  NUMPPL) 

D PCS UM* LNPOUT  (I  -  1)  *WT  (1)  ♦LNPOUT  (I)  *WT  (2)  ♦LNPOUT  (J)  *WT  (3)  ♦ 
LNOUT  (1-1)  *WT  (4) 

IPRED*  (DPCSUB ♦IFND) /NRMIZF 
ID  IF*LNIN  (I)  -IPRED  +  MAX1  ♦  IDT  HR 
IDIF=MAX0  (IDIF  ,  1 ) 

IDIF*MTN0  (IDIF, NTABLE) 

LNOUT  (I) = I  PS  ED ♦QTABLE  (ID  IE)  -IDT HR 
LNOUT  (I)  *MAX0  (LNOUT  (I)  ,0) 

CONTINUE 

NGEN  =  1 
NOSED  *  1 


RETURN 

END 
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C — opcaxi  MODIFIED  DPCH  MID 

C 

C  IDENTIFICATION 
C 


c 

TITLE 

dpchxx 

c 

AUTHOR 

GE  MONAGHAN 

c 

VERSION 

A. 01 

c 

DATS 

HARCH  31,  1977 

c 

LANGUAGE 

FORTRAN 

c 

SYSTEM 

PDP-15 

c 

PURPOSE 

c 

THIS  SUBROUTINE 

FORHS  A  PREDICTOR  FROM  THE  FOUR 

c 

NEAREST 

PREVIOUS  DPCH  VALUES  PLUS  THE  FIVE  REM- 

c 

r • 

AINING 

NEAREST 

LON  PASS  FILTERED  VALUES. 

V* 

c 

p 

ENTRT  POINT 

C 

c 

DPCMXX 

(  LNIN, 

NUHPPL,  LNLPF,  LNXTLP,  LNPOUT,  LNOUT, 

c 

QTABLE 

,  NTABLE,  If  AX,  RANGE,  1ST,  NT,  NGEN, 

c 

{“• 

NUSED 

) 

C 

c 

ARGUHENT  LISTING 

c 

LNIN 

INT 

INPUT  LINE  OF  DATA 

c 

NUHPPL 

I  NT 

NUMBER  OF  POINT  PEH  INPOT/OUTPUT  LINE 

c 

LNLPF 

INT 

CURRENT  LOB  PASS  FILTERED  LINE 

c 

LNXTLP 

INT 

NEXT  LOB  PASS  FILTERED  LINE 

c 

LNPOUT 

INT 

PREVIOUS  OUTPUT  LINE 

c 

LNOUT 

INT 

CURRENT  OUTPUT  LINE 

c 

QTABLE 

INT 

QUANTIZING  TABLE 

c 

QTABLE  (IDIF)  GIVES  THE  RECONSTRUCTED  VALUE 

c 

FOR  ANY  DIFFERENCE  OF  VALUE  IDIF 

c 

NTABLE 

INT 

DIHENSION  OF  QTABLE 

c 

BAX 

INT 

MAXIMUM  VALUE  OF  ANY  INPUT  LINE 

c 

RANGE 

REAL 

RANGE  OF  DITHER 

c 

1ST 

DINT 

SEED  OF  RANDOM  NUMBER  GENERATOR 

c 

NT 

INT 

3X3  ARRAY  OF  WEIGHTS  TC  USE  WHEN  SUMMING 

c 

PREVIOUS  DPCM ' D  AND  NEXT  DATA  POINTS  WITH 

c 

CURRENT  DATA  POINT 

c 

NGEN 

INT 

NUMBER  OF  OUTPUT  RECORDS  GENERATED  (-1) 

c 

NUSED 

INT 

NUMBER  CF  INPUT  RECORDS  USED  (»1) 

L 

c 

INTERNAL  VARIABLES 

v* 

c 

OPCSUB 

INT 

WEIGHTED  SUM  OF  3  NEAREST  NEIGHBORS  CN 

c 

PREVIOUS  DPCH  LINE 

c 

ITSUH 

INT 

WEIGHTED  SUM  OF  LAST  DPCM,  CURRENT  AND 

c 

NEXT  INPUT  POINTS 

c 

NXTSUB 

INT 

WEIGHTED  SUM  OF  3  NEAREST  NEIGHBORS  ON 

c 

NEXT  INPUT  LINE 

c 

IPRED 

INT 

PREDICTED  VALUE,  COMPUTED  FROM  DPCSUM* 

c 

ITSUM^NXTSUH 
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u  u  u  u  u  '  >  v  u  u  u  'j  «j  a  u  rj  u  ' )  u 


C 

C 

C 

C 

c 

c 

c 

c 

c 


SOUTINES  CALL2D 

BXNO  MINIMUM  OF  A  SET  OF  INTEGEHS 

BAIO  3 AXIMU M  OF  A  SET  OF  INTEGEBS 

IROUNO  ROUND  OFF  TO  NEAREST  INTEGER 
BCH  UNIFORM  RANDOM  NUMBE8  GENES ATOB 


(SYSTEM) 

(SYSTEM) 

(USER) 

(SYSTEM) 


C* ******  ***************  *  **  ********* 


SU8BOGTI N  £  DPCMXX  (  1.SIN,  NUMPPL,  LNLPP,  LNXTLP,  LtfPOUT, 

2  LNQUT,  QTABLE,  STABLE,  MAX,  RANGE, 

3  1ST,  ST,  NGEN.  NOSED  ) 

INTEGER-4  1ST 

INTEGER  SNOOT  (NUMPPL)  ,  QTABLE (STABLE)  ,  LNLPF  (NUMPPL) 
INTEGER  LN  EN  (NUMPPL)  ,  L  N  XTL  P  (N  UH  P  P  L)  ,  LN  PO  UT  (  NUMP  PL) 
INTEGER  VI T  (  3,  2  »  ,  DPCSUB 

MAX? 1  =  MAX  *  1 

SMPLfl  1  -  NO 5 PPL  - 
MRMLZF  - 

DC  1  I  !  , 

DO  !  J -  1  , 

NRMLZF  * 

CONTINUE 

I  3  HD  -  NS.M  i 


3 

U  S  3  L  Z  F  ♦  •T(I,J) 


DC  1ST  AND  LAST  DPCM ' S  SPECIALLY 

LN  OUT  (  1)  -  LN  I  N  ,  1) 

i. N 1  -  LSLN  (NUMPPL) 

NOW  DO  THE  REST  OF  THE  LINE 


DO  -UOO  1*2, NUMPPL 
7.11  =  1-1 

IP)  -  M 7 NO  ;  1*1,  NUHPPL  ) 

DITHER*  (8  CM  ( 1ST)  5)  *  RANGE 
IDTH  8- IRQ  UN  D (DITHER) 


2 

2 

2 


D  PC  SUM  =  LNPOHT  (IM1)  *VT  (  1,  1)  *  LNPOUT(I)  *WT  (1,2)  + 

L SPOUT  (I?1)  *WT  (1,3) 

ITS  UM  *  LNOI7T  (Hi)  *«T  (2,  1)  *  LNLPF  (I)  *  ST  (2,2)  ♦ 

LNLPF  CIP1)  *WT  (2,  3) 

NXTSUM  *  LNXTLP  (IM  1  )  *ST  (3  ,  1 )  ♦  LNXTLP  (I)  *«T  (3,2)  * 

LNXTLP  ( IP  1 ) *WT  (3, 3) 
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IPE2D  *  (DPCSUfl  ♦  ITSOH  ♦  NXTSUH  ♦  IRND) 
IDIP  »  LNIN(I)  -  IPB2D  ♦  HAXP1  ♦I'DTHR 


IDIP»NAXO  (1,IDIF) 

IDI?*HINO (STABLE, IDIP) 

LNOOT(I)  *  IPBZD  *  QTABLB  (IDI?)  -IDTHB 
LNOUT(I)  *  HAXO  (LNOtJT  (I)  ,0) 


CONTINUE 


NGEN  *  1 
NOSED  *  1 


HBTOHN 

END 


— HSERR  BEAN  SQUARE  ERROR 

i 

t  IDENTIFICATION 


a  ID 


TITLE 

AOTHOB 

VERSION 

DATE 

LANGOAGE 

SYSTEM 


HSERR 

OSCAR  A.  ZONIGA 
A. 01 

JOLT  6,  1979 

RATPOR 

IBH-370 


PURPOSE 

THIS  SOOT I S E  COMPUTES  THE  HE  AN  SQUARE  ERROR  EETWEEN  TWO 
ARRAYS  OF  INTEGER  DATA. 


ENTRY  POINT 


a  s  s  a  s 

{  LINE 

ARGUMENT  l 

I  STING 

LIS  El 

INT 

LINS2 

INT 

MSE 

REAL 

NPPL 

INT 

ROUTINES  C 

AILED 

NONE 

«  *  * ««**«**«* 

*»**I»«,* 

LINE2,  MSE,  NPPL  ) 


1  - D  ARRAY  OF  DATA 

1-D  ARSAY  OF  DATA 

THE  MEAN  SQUARE  ERROR 

THE  SIZE  OF  THE  INPUT  ARRAYS 


SUBROUTINE  H  S  E  3  R  (  LINE  1  ,  LINE  2  r  HSE,  NPPL  ) 

t 

INTEGER  LINS'!  {  NPPL  ),  LINE2  (  NPPL  ) 

REAL  MS 2 
M  T>  ?,  «  ■) .  0 

* 

DO  K  =  1 ,  NPPL 

HSE  *  HIE  ♦  f  LINSI(K)  -  LI  N  E2  (K )  )  «*  2 

MS  E  *  MS  E  /  NPPL 

» 

RETURN 

END 
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. — OPDEGS  UPDATE  EDGES 

'  IDENTIFICATION 

TITLE 
AUTHOR 
7EBSIOH 
DATE 

LARGO AGE 
SYSTEM 

» 

POHPOSE 

! 

THIS  BOOTIMB  OP DATES  THE  CONTENTS  OF  THE  BUFFERS  CON¬ 
TAINING  THE  NEIGHBORING  TOP  EDGES  AND  THE  NEIGHBORING 
LEFT  EDGES  BHENE7EB  A  BLOCK  HAS  BEER  PBOCESS1D. 

ENTBT  POINT 

i  • 

OPDEGS  (  OTBLK ,  TOPEDG,  LFTEDG,  CORNR,  NPPL,  NLIN , 

IB,  JB,  MB,  NC  ) 

AEG 0 BENT  LISTING 


OTBLK 

INT 

THE  PROCESSED  OUTPUT  BLOCK 

TOPEDG 

INT 

THE  BOFFBB  THAT  STORES  ALL  NEIGH¬ 
BORING  EDGES  IN  THE  PREVIOUS 
PROCESSED  RON  OF  BLOCKS 

LFTEDG 

INT 

THE  BUFFER  THAT  STORES  ALL  NEIGH¬ 
BORING  EDGES  IN  THE  PREVIOUS 
PROCESSED  COLUMN  OF  BLOCKS 

CORNB 

INT 

THE  PREVIOUS  PROCESSED  VALUE 

AT  THE  COBNEB  OF  A  GIVEN  BLOCK 

NPPL 

INT 

THE  NUBBEP  CF  POINTS  PER  LINE 

IN  THE  IMAGE 

NLIN 

INT 

THE  RUBBER  OF  LINES  IN  THE 

IHAGE 

IB 

INT 

THE  POSITION  OF  A  BLOCK  IN  A 
COLUMN  OF  BLOCKS 

JB 

INT 

THE  POSITION  OF  A  BLOCK  IN  A 

BOS  OF  BLOCKS 

NB 

INT 

THE  NUMBER  OF  ROSS  PER  ELOCK 

NC 

INT 

THE  RUBBER  CF  COLUBNS  PER  BLOCK 

BOOTINES  CALLED 
NONE 


OPDEGS 

OSCAB  A.  ZONIGA 
A. 01 

HAY  16,  1979 
8ATFOB 
IBM- 370 


MID 


SUBROUTINE  OPDEGS  (  OTBLK,  TOPEDG,  LFTEDG,  CORNR, 

NPPL,  NLIN,  ZB,  JB,  NR,  NC  ) 


iaPLICIT  INTEGER  (  A  -  Z  ) 

INTEGER  OTBLK  (  NR,  NC  ) 

INTEGER  TOPEDG  {  NPPL  ),  LETEDG  (  NLI8  ) 


UPDATE  EDGES 

COB NB  =  TOPEDG  (  NC*JB  } 

DO  K  *  1,  NR 

jiFTEDG  (  NS*  (IB-1)  *  K  )  *  OTBLK  (  K, 

30  S  -  1,  NC 

TOPEDG  (  NCMJB-1)  *  K  )  *  OTBLK  {  NR 


RETURN 

END 
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NC  ) 
K  ) 


* 


